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3 2 UN MODE 


PAS À PAS 

POUR VOTRE LOGO 

Plus on décompose une 
procédure, plus on a de 
chances d'en comprendre le 
fonctionnement. En mode pas 
à pas, le programme s'arrête 
après chaque instruction 
pour demander s'il doit 
exécuter la suivante. 


3 5 UN PASCAL PAS 


COMME LES AUTRES 
Jusqu'à présent, les 
différentes versions du Pascal 
étaient compilées. Tout 
dernièrement, le Macintosh 
s'est doté d'un Pascal 
interprété : un net progrès 
pour ce langage qui avait 
déjà le vent en poupe. 


1 COUVERTURE 

Il est toujours facile de 
prendre des risques devant 
l'écran d'un ordinateur. 
L'informatique est par 
excellence le domaine des 
simulations en tout genre. 
L'illustrateur Gilbert Macé en 
a imaginé une dont les 
conséquences sont 
inattendues. 


2 4 DÉNICHER LES 


BONS CARACTÈRES 
L'interpréteur Basic du Canon 
X-07 est une mine d'or pour 
programmer en langage- 
machine. Il va nous permettre 
de créer une routine qui 
localise une suite de 
caractères dans un 
programme et qui affiche la 
ligne où elle se trouve. 


2 6 LE BASIC DU 


LANSAY 64 

Finalement distribué en 
France sous le nom de 
Lansay 64, l'Enterprise se fait 
remarquer par la grande 
richesse et le caractère 
structuré de son Basic. 


2 9 UN PROBLÈME DE 


COMPLEXES ? 


1 0 À VOS CLAVIERS 
1 2 LA GAZETTE 


DE LIST 


42 LES COUPS D'ŒIL DE LIST 


3 6 MISEZ P'TIT, 


OPTIMISEZ 

Sus aux millisecondes, haro 
sur les octets gaspillés ! Un 
nouveau défi (HP-41) lancé à 
la sagacité des lecteurs, et 
les résultats du problème 
posé dans LIST 8. 


4 0 SAFARI-MÉMOIRE 


DANS LES TO 7 ET TO 7/70 
Pour aller jeter un coup d'œil 
dans le secret de votre 
Thomson, il vous faut un 
utilitaire de « dump ». En voilà 
un, tout fait, pour satisfaire 
votre curiosité. 


42 MASTER PAINT POUR ORIC-1 ET ATMOS 

Comment créer un dessin que l'on pourra sauver sur 
cassette, mais aussi utiliser dans un autre programme, par 
exemple comme décor d'un jeu. 


L'évaluation d'expressions 
complexes assistée par 
ordinateur fait ses premiers 
pas sur un PC-1500. On 
comprend pourquoi le 
programme s'appelle Œdipe. 


2 1 ACCÈS DIRECT 


La façon la plus rapide de 
retrouver une information sur 
une disquette ou sur un 
disque dur, c'est l'accès 
direct. Comment le système 
d'exploitation mêne:t-il ses 
recherches ? 


43 KUMA FORTH POUR MSX 

Si les machines au standard MSX sont en grande partie 
définies par leur Basic, elles se dotent progressivement 
d'autres langages. Ce mois-ci, nous avons testé un Forth. 


45 SUPERBASE POUR LE DAI 

Une gestion de fichiers à la fois performante et agréable 
d'emploi qui vient confirmer, s'il en était besoin, le caractère 
semi-professionnel du Dai. 
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L] 3 CINQUANTE 


DÉCIMALES POUR UN LOG 
Quand on connait avec 
cinquante décimales les 
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SOMMAIRE 


64 LA BOÎTE 


A MALICES 
Prenez un programme et 
retirez-en toutes les astuces, 


4 7 LES CODES 


SECRETS ET LE HASARD 
Les nombres , aléatoires » 


logarithmes des six premiers 
nombres premiers, on peut 
créer une table 
extraordinairement précise. 
Elle recense les logarithmes 
de tous les nombres 
composés à partir de ces six 


L] 6 LE BASIC DU 


SHARP PC-1350 
Avec un affichage de quatre 


des plus grossières au plus 
subtiles. Que reste-t-il ? Rien. 
Dans ce numéro, des ficelles 
pour Amstrad, Sinclair QL, 
Alice, TO 7 et 7/70, ZX 81, 
HP-71 et 41, Dai, PB-700, 
À-07, PC-1500 et Apple Il. 


produits par les ordinateurs 
n'ont rien de hasardeux. Ils 
sont au contraire 
parfaitement déterminés. 
C'est d’ailleurs à cause de 
cela qu'on les utilise pour 
coder les messages, car en 
cryptographie, rien n'est 
laissé au hasard. 


premiers. 


lignes et des cartes de 
mémoire additionnelles, le 
PC-1350 offre un Basic dans 
la lignée de ceux que Sharp 
crée pour ses poquettes, 
c'est-à-dire un langage très 
souple et relativement 
puissant. 


Ce numéro contient en encart 
des bulletins d'abonnement 


pe] 0 ORGANISATION 


DES DISQUETTES DU C.64 
Chaque disquette comporte 
une carte de ses blocs 
disponibles. Normalement, 


tout cela demeure invisible à 
l'utilisateur... à moins qu'il ne 


dispose de l'utilitaire qui 
convient. 


56 PASCAL, SUIVEZ 


LA PROCÉDURE 

Taper une lettre à la machine 
et introduire des données 
numériques au clavier d'un 
ordinateur ne requièrent pas 
toujours la même rigueur. La 
lettre O à la place d'un zéro, 
et rien ne va plus. Avec un 
bon sous-programme, les 
fautes de frappe les plus 
fréquentes ne sont plus des 
sources d'erreurs. 


61 LA RÉCRÉ 


DE LIST 

Exercez votre logique et votre 
ingéniosité pour résoudre 
quelques petits problèmes 
simples en apparence. Qui 
sait si vous ne parviendrez 
pas à une solution meilleure 


paginés 7, 8, 75 et 74. 
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EPUIS peu, je programme 
sur un Amstrad CPC 464 
monochrome vert et je rencon- 
tre quelques problème que je ne 
parviens pas à résoudre. J’espère 
que vous pourrez m'aider. Les 
voici : 
e si un carré est dessiné au milieu 
de l’écran, comment faire pour 
le colorier en vert clair, par 
exemple ? 
° comment empêcher l’ordina- 
teur de continuer à exécuter un 
programme pendant une com- 
mande SOUND ? 
° comment charger une cassette 
en faisant apparaître en même 
temps un message de bienvenue, 
autre que les traditionnels 
« Press play then any key » ou 
« Loading x Block 1 » ? 
Je vous remercie d'avance. 


Stéphane PETIT 
20 Ajaccio 


L'instruction PAINT 

étant absente du Basic 
Amstrad, le remplissage d’une 
figure géométrique ne peut guère 
se faire qu'avec une série de 
DRAVW qui auront l’effet sou- 
haité. Par exemple, un carré au 
milieu de l’écran : 
10 X = 200: Y = 100 


TÉRIEUSE 
SUR X-07 


ANS le programme pour 
X-07 publié dans LIST 6 
(page 20), la ligne 9 m'’intrigue : 
9 D=D\V3+(A= -—2) -(A=2) 
:IFDTHENS 
Premièrement, le signe ‘‘\” 
n’existant pas sur le Canon 
X-07, de quelle fonction s’agit- 
il donc ? 
Deuxièmement, si A= —2 et 
A =2, pourquoi les écrire ainsi ? 
Troisièmement, quelle condi- 
tion impose-t-on à D ? 
Veuillez excuser mon igno- 
rance et bien vouloir éclairer ma 
lanterne. Merci. 


C. de BAILLON 
68 Izach 
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 QUAND L'AMSTRAD 
 SOUHAITE LA BIENVENUE 


20 FOR I=1 TO 50 
30 MOVE X,Y +1 

40 DRAW X+50,Y+I 
50 NEXT I 

Une autre solution consisterait 
à définir une fenêtre ayant la 
taille et la couleur souhaitées, le 
dessin étant alors plus rapide, 
mais l’utilisation en serait moins 
souple. 

Sachant qu'à la rencontre 
d’une commande SOUND, le 
Z80 transmet les paramètres au 
processeur spécialisé, chacun 
poursuivant son travail séparé- 
ment, On peut supposer qu'il 
n'existe pas de moyen simple 
d'interrompre ce SOUND. 

Enfin, pour charger une suite 
de programmes sans les messa- 
ges habituels, il suffit de termi- 
ner le programme de bienvenue 
par RUN‘“!Titre”’. Le point 
d'exclamation a pour effet de 
supprimer l'affichage des messa- 
ges. « Titre » est le titre réel du 
Programme à charger à la suite : 
il aura été sauvegardé sous ce 
même nom (le ‘‘!”” n’a donc rien 
à voir avec le titre du pro- 
gramme). La même méthode 
peut s'appliquer à LOAD, 
SAVE, OPENIN et OPE- 
NOUT. 


Le signe \ représente la 
division entière sur le 

Canon X-07. On l’obtient au 
clavier par la touche Y (Yen). 

Pour essayer de vous faire 
comprendre les mystères de cette 
ligne 9, nous vous suggérons de 
faire tourner le programme 
suivant : 
10 INPUT A 
20 D=(A=-2)-(A=2) 
30 PRINT D 

Selon la valeur donnée à À 
lors de l’INPUT, celle de D qui 
s’affichera sera égale à — 1, à 1 
ou à 0. Ce sera — I si la valeur 
introduite dans À est —2, 1 si 
A=2 et 0 dans tous les autres 
cas. En effet, si — 2 a été intro- 
duit dans A, l'expression 
(A = — 2) de la ligne 20 prend la 
valeur vraie, soit — 1 sur ie X-07, 
et l’expression (A = 2) prend la 
valeur faux, soit 0. Donc, 
D= -14+0, soit —1. Mais si 2 
a été introduit dans À, alors l’ex- 


pression (A=—2) vaut 0 et 
(A=2) vaut -1. Donc, 
D=0-(-1) ce qui fait bien 1. 
Enfin, si vous ajoutez à ce 
Programme, les lignes : 
40 IF D THEN PRINT ‘D est 
différent de 0’’:END 
50 PRINT ‘‘D=0" 
vous comprendrez que D tout 
seul est vrai s’il est différent de 
zéro (le programme exécute alors 
ce qui se passe après le THEN), 
et que D est faux s’il est légal à 
zéro, auquel cas le programme 
passe à la ligne suivante (ligne 
50). Tout ceci tient en une ligne 
fort astucieuse dans le pro- 
gramme que vous citez. Ce que 
c'est que d'optimiser. 


AUSSI 
FULGURANT 
QU'INFAILLIBLE 


ST-ON sûr d’avoir épuisé 

toutes les ressources de la 
programmation pour faire d’une 
machine un adversaire excellent 
au Tic-tac-toe ? Pour aider à y 
parvenir, voici quelques 
réflexions. 

A la notion d’alignement, qui 
n’est guère évidente que pour 
l’œil humain, on commence par 
substituer celle de « somme 
égale à 15», beaucoup plus 
accessible à l’ordinateur, en rem- 
plaçant le numérotage habituel 


par celui d’un carré magique 
d'ordre 3. Par exemple : 


816 123 
3:57 au lieu de 456 
492 789 


Bien entendu, le numérotage 
« magique » va rester masqué 
par le programme. On aura ainsi 
toute latitude pour ajuster la 
correspondance entre numérota- 
ges en fonction du premier coup 
du joueur, de façon à réduire la 
« bibliothèque d’ouvertures » à 
une toute petite pincée de coups 
« non obligés », commençant 
tous par 1—5, 5-8, ou 8-5si 
le joueur a le trait, par 5 — 1 ou 
5 — 8 si c’est l’ordinateur (numé- 
rotage magique). Dès le troi- 
sième coup de l’ordinateur une 
routine très simple se charge de 
tous les coups « obligés » (assu- 
rant le gain immédiat ou néces- 
saire pour éviter de perdre au 
coup suivant). 

Fort utiles au demeurant sur 


‘ un plan théorique plus géné- 


ral, le programme d’auto- 
apprentissage de Tic-tac-toe 
(LIST 2) et celui d'exploration 
d’arbres (LIST 3) restent en fait 
aussi éloignés l’un que l’autre du 
programme idéal, aussi fulgu- 
rant qu’infaillible que j’espère 
trouver prochainement dans 
LIST. 


Charles DOARÉ 
06 Grasse 


Pour trouver ce pro- 

gramme « idéal, aussi ful- 
gurant qu'infaillible » dans 
LIST, il suffit de nous l'envoyer. 
Nous l’attendons avec 
impatience. 


DE MEILLEURES SOLUTIONS 
POUR LES JEUX 


V OUS connaissez certainement le principe qui régit la program- 
mation : « Tout programme convenablement testé et débogué 
contient encore au moins une erreur ». Les extraits de programme 
proposés dans la rubrique des jeux et casse-tête informatiques, 
même s’ils ne dépassent pas quelques lignes, n ’échappent pas, bien 


sûr, à cette règle. 


Pour s’en convaincre, il suffit de considérer l’énoncé du jeu 27, 
Recherche du DU (LIST 8, page 83), qui a provoqué de nombreuses 
réactions. En effet, si le jeu consistait à enlever la petite « paille » 
qui empéchait le programme de donner le bon résultat dans un 
cas précis, il n’était fait aucune mention de la « poutre », comme 
nous l’écrit Pierre Barnouin, qui empêchait le programme de tour- 
ner dans tous les cas. Bien entendu, c’est à la suite d’une correc- 
tion de dernière minute que des OR ont pris la place des AND 
et ont rendu le jeu plus difficile que prévu. 

Du côté des fonctions logiques, Hervé Gouessant (Vandœuvre) 
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est, lui, plus à l’aise que nous. C’est ainsi qu’il s’est attaché à géné- 
raliser le jeu 19 (LIST 7, page 80) qui consistait à trouver des for- 
mules pour remplacer les fonctions logiques. Il est possible de trou- 
ver, pour chaque opérateur, deux expressions de remplacement, 
l’une utilisant les opérateurs relationnels (=, >, < = ,...), l’au- 
tre mettant en œuvre les opérateurs arithmétiques (+, —, +). Les 
résultats sont récapitulés dans le tableau ci-dessous. 


Tableau de remplacement des fonctions logiques 


ie Expression avec Expression avec 
psc des opérateurs des opérateurs 
relationnels arithmétiques 
non À A = 0 1 = À 
A et B A +B=2 A + B 
A ou B A+B>O0 A +B-A%+B 
A ox B A <> B A+B — 2+A+B 
A equ B A = B 1-(A+B — 2+Ax%B) 
A imp B A <=B 1 — A x (1-—B) 
A rpc B A >=8B 1 —- Bx(1—A) 


Pour le jeu 21 (LIST 7, page 81) qui consiste à rechercher le 
plus grand élément d’un tableau, Pierre Barnouin remarque qu’il 
est possible de gagner une instruction si le tableau est indicé de 
0 à 9. Le programme Basic devient alors : 

10 for 1=1 to 9 

20 if T(I) > T(J) then J=I 
30 next I 

40 print T(J) 

Le jeu 24 (LIST 8, page 82) consistait à écrire un programme 
permettant de calculer le bit de parité d’un octet. Pierre Barnouin, 
toujours, nous propose les deux lignes suivantes : 

10 def fn K(Y) = sgn(Y mod 3)+sgn(Y mod 5) 
20 def fn P(X) = fn K(X div 16) < > fn K(X mod 16) 

Ainsi P est la fonction qui retourne la valeur du bit de parité 
de l’octet qui est passé en paramètre. Ici, SGN est la fonction signe 


qui vaut —1 si son paramètre est négatif, 0 s’il est nul, +1 s’il 
est positif ; DIV donne le résultat de la division entière et MOD 
le reste de cette division. 

Cette solution qui est à la fois courte et élégante, est particuliè- 
rement difficile à comprendre. Voici donc quelques explications 
sur la manière dont elle fonctionne. 

Prenons toutes les valeurs qui peuvent être mémorisées sur un 
demi-octet, c’est-à-dire tous les entiers de 0 à 15. Séparons ces 


valeurs en fonction de la parité du nombre de bits à 1. On obtient 
le tableau : 


Nombre pair de bits à 1 Nombre impair de bits à 1 


0 (0000) 1 (0001) 
3 (0011) 2 (0010) 
5 (0101) 4 (0100) 
6 (0110) 7 (0111) 
9 (1001) 8 (1000) 

10 (1010) 11 (1011) 

12 (1100) 13 (1101) 

15 (lili) 14 (1110) 


On peut ainsi remarquer que les valeurs de la colonne de gau- 
che sont toutes divisibles soit par trois soit par cinq, et que celles 
de la colonne de droite ne le sont jamais. Ainsi, le reste de la divi- 
sion par 3 ou par 5 des nombres de la colonne de droite donnera 
toujours un résultat différent de 0. Et la fonction K qui retourne 
la valeur de l’expression « sgn(Y mod 3)+sgn(Y mod 5) » permet- 
tra de déterminer la parité d’un demi-octet. 

Pour avoir la parité d’un octet, on le divise par 16 : on obtient 
ainsi les 4 premiers bits, ceux dits de poids fort. Le reste de cette 
division par 16 donne les 4 derniers bits, ceux dits de poids faible. 
Ainsi, l’octet est séparé en deux demi-octets. Et si les deux demi- 
octets ont la même parité, alors le nombre de bits de l’octet sera 
pair. Dans le cas contraire, ce nombre sera impair. Ce résultat est 
donné par la fonction P qui évalue l’expression : fn K(X div 16) 
< > fn K(X mod 16). 


Avouons que si cette solution est particulièrement complexe, 


elle est d’une élégance rare. 5 
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programmes en s’appuyant 
sur une classification 
logique des jeux 

de réflexion les plus 
classiques. 


"La programmation des jeux de 
réflexion” par Louis Jardonnet 
106 pages - 110,00 FF. £ 


LA PROGRAMMATION 


Envoyer ce bon accompagné 
de votre règlement à : 


PS. DIFFUSION 
B.P 86-77402 
Des algorithmes en Pascal LAGNY/MARNE CEDEX 
pour construire des Tél. (6) 006.44.35 


Nom 


OT | 
ASS | 
Code Postal | 
es | 


Je commande “La programmation des jeux 
| de réflexion"et joins un chèque de F 110,00. | 
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Sony lance sur le marché 


ONY fait donc le pari du 

standard MSX en France. 
Après avoir commercialisé avec 
succès son ordinateur au Japon, 
il l’introduit en Europe et s’at- 
taque au marché français de la 
micro-informatique familiale. 
Le Hit Bit 75 F, nouveau modèle 
MSX, présente bien. Il vaut 
3500 F. 

La mémoire vive de l’unité 
centrale est de 64 Ko auxquels 
s’ajoutent 16 Ko pour la gestion 
de l’écran. Inutile de décrire la 
plupart des autres caractéristi- 
ques qui découlent en fait du 
standard (voir l’essai du Basic 
MSX, LIST 5). 

Deux améliorations très nettes 
cependant pour les francopho- 
nes : le clavier, tout d’abord, est 
azerty avec caractères accentués. 
Du côté de la mémoire morte, 
d’autre part, le Sony se singula- 
rise avec un logiciel intégré entiè- 
rement francisé. A la mise sous 
tension, un menu apparaît, don- 
nant le choix entre l’agenda, le 
carnet d’adresses, le bloc-memo 
ou le Basic. Les trois premières 
options possèdent des fonctions 
empruntées aux logiciels de ges- 
tion de fichiers (création, effa- 
cement, modification, sauve- 
garde, tri) que l’on sélectionne 
par l’intermédiaire du pavé de 
gestion du curseur. 

La compatibilité matérielle 
étant l’un des points forts du 
standard, tous les utilisateurs de 
MSX seront intéressés par la 
commercialisation des périphé- 
riques du Hit Bit. Le plus origi- 
nal d’entre eux est sans doute le 
track ball qui coûte environ 
900 FF et qui ne fonctionne 
pour l’instant qu’avec un seul 
logiciel, Creative Graphics. I] 
s’agit d’une souris « ventre en 
l’air » (la boule qui déplace le 
curseur est tournée vers le haut 
et actionnée par la main), livrée 
avec un programme de création 
graphique en cartouche. Ce 
track ball permet d'accéder aux 
icônes du logiciel et bien sûr de 
dessiner. 

Des manettes de jeu sont dis- 
ponibles en deux versions : avec 
cordon (environ 250 FF), à 
infrarouge (environ 600 FF). La 
table traçante, 2600 FF, accepte 
des feuilles de papier au format 
21x29,7. Elle écrit en quatre 
couleurs et sa vitesse d’impres- 
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sion moyenne est de 6 caractè- 
res à la seconde. Une cartouche 
de mémoire vive de 4 Ko, à ali- 
mentation intégrée, peut être uti- 
lisée comme petite mémoire de 
masse (notamment pour le logi- 
ciel intégré). On devrait la trou- 
ver aux alentours de 500 FF. 

Enfin, un lecteur de disquet- 
tes trois pouces et demi et un 
magnétophone à cassettes, qui 
coûtent respectivement 3500 FF 
et 600 FF. 


TLA 


Tandy baisse en France 
le prix du Coco 2 


PRÈS le Spectrum Plus et 

l’'Alice 32 Ko (LIST 9, 
page 23), c’est au tour du Coco 
2 de réviser ses prix, à la baisse 
heureusement. 

Au début de sa carrière, il 
valait 1895 FF dans sa version 
de base (16 Ko de MEV et Basic 
standard) et 3295 FF avec 64 Ko 
de MEV et un Basic étendu. Puis 
les deux versions du même TRS 
Couleurs 2 ont valu respective- 
ment 1695 et 2895 FF. 

Une nouvelle baisse vient de 
survenir ; la version 16 Ko vaut 
maintenant 1395 FF et le 64 Ko 
vaut 2695 FF. C] 


Lecteurs 
de disquettes 


Une grosse 
souris : le 
track ball 


UNE CASSETTE 


Graphix 81 

Cassette pour ZX 81 
(extension 16 Ko 
minimum) 

Auteurs : Joël Berthelin et 
Philippe Fassier 

Édité par Ere Informatique 
Prix : environ 150 FF 


I votre ZX 81 ne quitte pres- 

que plus votre placard, si 
vous en êtes revenu, si Vous pen- 
sez en avoir fait le tour, l’utili- 
taire de Joël Berthelin et de Phi- 
lippe Fassier pourrait bien vous 
réserver une petite surprise. 

Tout le programme (4 Ko de 
langage-machine) tient en une 
REM, en ligne O. Il n’en faut pas 
plus pour que le ZX fonctionne 
en haute résolution graphique : 
192 X 256, soit 49152 points, et 
donc 16 fois plus que les 3072 
points d’origine. D'ailleurs, les 
gros pâtés sont toujours là, mais 
en mode basse résolution. 

En contrepartie, c’est vrai, 
l’utilisation de Graphix n’est pas 
vraiment simple. Et si l’on veut 
modifier un vieux logiciel, cela 
ne se fait pas en un clin d’œil, 
il faut prendre son courage à 
deux mains : RAND USR ma- 
chin, RAND USR truc, etc... 

Tout est expliqué, sur 52 


Le clavier du Hit Bit W 


di ok En & à i 
pages, dans une notice soignée 
mais pas toujours évidente pour 
le profane. C’est assez ardu, 
mais complet : chargement, 
introduction, tableau de la 
mémoire, choix des configura- 
tions, et tout le reste, c’est-à-dire 
les nouvelles instructions graphi- 
ques. En fait, on utilise astucieu- 
sement les REM et certains 
ordres déjà existants (THEN, 
INKEYS$, AT, NOT, TO, PI...) 
Et voilà le ZX qui comprend 
plusieurs instructions par ligne, 
le voilà qui se met à tirer des 
traits, à tracer des cercles, à 
dérouler son affichage. Voilà 
qu’il admet des chaînes de vec- 
teurs comme les machines MSX. 
On peut encore définir une fenê- 
tre, remplir une zone fermée, 
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redéfinir ses caractères, faire une 
copie d’écran haute résolution. 

Mais attention : tout cela ne 
se fait pas comme par enchan- 
tement. Si ce logiciel est remar- 
quable, il est assez difficile à uti- 
liser. On arrive certes à des résul- 
tats impressionnants pour un 
ZX, mais on doit s'attendre à de 
patients essais et à une lecture 
très attentive du mode d'emploi 
avant d’être à son aise. 

Deuxième restriction : Le logi- 
ciel peut fonctionner sous plu- 
sieurs configurations différentes, 
depuis la banale extension 16 Ko 
(minimum indispensable) jus- 
qu’à celle de 64 Ko. Et même le 
possesseur de cette dernière 
extension risque de ne pas pou- 
voir disposer de toutes les pos- 
sibilités du logiciel. Le manuel 
indique un test qui permet de 
savoir quelles sont les nouvelles 
fonctions apportées par Gra- 
phix. 

On devra tenir compte aussi 
des limitations techniques liées à 
l'appareil : les caractères utilisés 
pour la haute résolution sont évi- 
demment codés en mémoire, or 


il n’est pas possible de définir le 
jeu complet des 256 caractères 
nécessaires. Résultat, sur 
l'écran, la haute résolution n’est 
pas parfaite (elle peut l’être en 
revanche sur l’imprimante). 
Malgré ces limitations et la 
difficulté de mise en œuvre, 
Graphix est un programme très 
attrayant, il transforme complè- 
tement le ZX 81. Les fanatiques 
de cette machine doivent au 
moins essayer ce remarquable 
logiciel. 
JD Æ 


32 % de moins 
sur l’Atari 800 XL 


TARI a récemment modi- 

fié le prix de vente de son 
modèle 800 XL (64 Ko de 
mémoire vive). On le trouve 
désormais à 1700 FF au lieu de 
2500 FF. 

Quant au 600 XL (16 Ko de 
MEV), dont la fabrication a 
cessé, il est définitivement retiré 
du catalogue Atari. 


UN LIVRE 


Le Logo 
Boris Allan 
Titre original : {ntroducing 
Logo 

Éditions Belin 
Collection Modulo 
Paris, 1984 
Broché, 110 pages 
Prix : 95 FF 


OICT un livre qui, lors de 
sa traduction, a changé de 
visage. Le titre français lui 
donne en effet une prétention 
que l’auteur n’a pas. Ce n’est 
pas “‘Le’”’ Logo, mais bel et bien 
une introduction à Logo. Le ton 
du livre est donné par la pré- 
face : « Tout adepte de Logo 
s'oppose naturellement à l’utili- 
sation injustifiée des jargons et 
à toute tendance visant à faire de 
l'informatique un domaine à 
part. » 
Fruit d’une collaboration 
franco-québécoise, les exemples 
de procédures sont donnés en 


versions française (Apple Logo 
LCST) et américaine (IBM PC). 
Feuilleté pour la première fois, 
le livre paraît dense. En fait, il 
demande à être lu dès la pre- 
mière ligne, et c’est de cette 
façon qu’il devient alors vivant, 
puis de plus en plus technique. 

Le chapitre 9, « Programma- 
tion élaborée », pèche un peu 
par son titre, me semble-t-il : 
Eliza est amusant et peut donner 
des idées, c’est tout. Mais ici 
aussi, il convient de se rappeler 
du titre original de l’ouvrage : 
« Introducing Logo ». 

Il est dommage que Boris 


NOUS SOMMES LES PREMIERS A RENDRE ACCESSIBLE 


L'INTELLIGENCE 
ARTIFICIELLE 


ET MEME PLUS : NOUS OPERONS LA FUSION DE L'ALGORITHMIQUE 
CLASSIQUE AVEC CETTE TECHNIQUE D'AVANT-GARDE : 


NOTRE MICRO-ORDINATEUR PORTABLE, INTEGRE  FUTURLOG 


FUTURSYS, 


— BASES DE FAITS ET SYNTAXES DEFINIES AU GRÉ DE L'UTILISATEUR. 
— ACTIVATION DES FAITS : SIMPLE (ALGORITHMES) ET/OU MULTIPLE (INTELLIGENCE ARTIFICIELLE : MOTEUR D'INFERENCE DU PREMIER ORDRE). 
— PRECISION DES CALCULS LIMITEE UNIQUEMENT PAR LA TAILLE MEMOIRE. 
— FUTURSYS : SYSTEME PORTABLE (BATTERIE RECHARGEABLE) — MICROPROCESSEUR 65C02 À 2 MHZ. 
— RAM 8 KO À 48 KO — AFFICHAGE LCD : 2 x 40 CARACTERES — CLAVIER 48 TOUCHES. 
— INTERFACE CASSETTES — PORTS D'EXTENSION — DIMENSIONS EN MM : 215 x 130 x 75. 


0 JE COMMANDE UN MICRO-ORDINATEUR 
FUTURSYS : FUTURLOG, 8 KO RAM (DE BASE) 
0 CHEQUE DE 3490,00 F JOINT A L'ORDRE 


LE PREMIER META-LANGAGE. 


BON DE COMMMANDE 


À RETOURNER A :INFORMATIQUE INDUSTRIE ET SERVICE, BP 706, 75162 PARIS CEDEX 04. 


D JE DESIRE RECEVOIR UNE DOCUMENTATION GRATUITE. 
NOM : 


DE : INFORMATIQUE INDUSTRIE ET SERVICE. RUE : 


Q CONTRE-REMBOURSEMENT : 


(PREVOIR FRAIS SUPPLEMENTAIRES) 
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Allan paraisse ignorer les tra- 
vaux Logo menés ailleurs qu’en 
Angleterre et aux USA, mais il 
reste que cette introduction au 
Logo, langage de programma- 
tion, devrait concurrencer beau- 
coup de livres écrits directement 
en français pour Logo. Si l’on ne 
tient pas compte du côté voyez 


Un clavier Azerty 
pour le Sinclair QL 


E QL à clavier français, 

présenté au Sicob, est déjà 
en vente au prix de 6950 FF. Un 
prototype disponible fin avril 
1985 nous avait donné une idée 
de ce que serait cette version 
Azerty. Je parle de prototype car 
ce matériel n’était pas équipé des 
mémoires mortes masquées de la 
version française. Le « driver » 
de clavier avait pris place dans 
des Eproms installées 


sur une 
carte d’extension raccordée au 
connecteur de bus. Le clavier, 
cependant, présentait son aspect 
définitif. 

La différence avec le modèle 
anglais réside dans la disposition 
de ses touches, Azerty bien sûr, 
et dans l’ajout du c cédille et des 
caractères accentués. Pour ne 
pas devoir redéfinir entièrement 
le clavier, Sinclair a choisi de 
mettre ces nouvelles touches à la 
place de caractères peu usités 
(qui restent tout de même acces- 
sibles avec Contrôle). Ce nou- 
veau clavier n’est donc pas la 
réplique exacte de celui d’une 
machine à écrire. Les accents ne 
se trouvent pas sur la rangée 
numérique, ils sont à droite, du 
côté de la touche Enter. Une telle 
disposition ne doit vraiment être 
gênante que lors de l’utilisation 
du traitement de texte et dans ce 
domaine, le clavier du QL se 
montre déjà assez discutable. 
Cela mis à part, l'emplacement 
des accents change peu de cho- 
ses et on s’y habitue plus facile- 
ment qu’au toucher un peu spé- 
cial du clavier. 

Avec ce prototype Azerty 
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comme 1.080 est simple et de la 
légèreté des touches pédagogi- 
ques, on y trouvera à la fois des 
idées de progressions dans l’en- 
seignement du Logo et des exem- 
ples de procédures qui, je l’es- 
père, en feront germer d’autres. 


CASSETTES ET DISQUETTES 


RD M 


nous ont été confiées les versions 
françaises des quatre logiciels 
fournis avec la machine. Le 
numéro de version 2.2 inclut 
toutes les améliorations appor- 
tées à la 2.0 (essentiellement per- 
ceptibles par une réduction des 
accès disques) avec bien sûr une 


Bêta Basic 

Basic étendu 
Cassette pour 

ZX Spectrum 48 Ko 
Édité par Infogrames 
Prix : 190 FF 


E Basic étendu gonfle le 

Spectrum 48 Ko de près de 
soixante commandes et fonc- 
tions supplémentaires. La plu- 
part d’entre elles sont nouvelles, 
d’autres sont des fonctions 
usuelles améliorées. Les explica- 
tions concernant leur utilisation 
sont consignées dans un fasci- 
cule d’une quarantaine de pages 
joint à la cassette. Li] 


traduction 
des messages affichés à l’écran 
(commandes et aide). Le travail 
apparaît bien fait et ces logiciels 
n’en deviennent que plus intéres- 
sants. Il me reste un motif d’in- 
quiétude : ces versions françai- 
ses refusent de tourner sur le 
modèle Qwerty du QL. Cela 
signifie très probablement qu’il 
faudra transformer en Azerty les 
ordinateurs qui auraient été 
achetés en version anglaise. 
Sinon, pas de français à l’écran. 


XdLT M 


Tablo 5 

Tableur 

Tracés d’histogrammes 
Cassette pour MO 5 

Edité par Ëre Informatique 
Prix : 250 FF 


N logiciel qui permet de 

disposer d’une feuille de 
calcul électronique de 26 colon- 
nes sur 71 lignes. Les données 
introduites pourront ensuite être 
affichées et imprimées sous 
forme de graphiques. Trois 
représentations sont possibles : 
la courbe, le découpage en fro- 
mage et l’histogramme. CL] 


Un ‘“Kit-programmeur”” 
pour Oric-1 et Atmos 


OBRA Soft propose aux 

possesseurs d’Oric, un 
““Kit-programmeur’’ composé 
de cinq logiciels utilitaires et de 
lPouvrage ‘‘Au cœur de l'At- 
mos”” de Gilles Bertin, le tout 
pour 290 FF, dans la limite des 
stocks disponibles (prix initial : 
635 FF). 

Trois de ces logiciels, Kit 
écran, Data Save et Supercopy, 
ont été présentés dans LIST 
n° 9, page 15. Ils sont accom- 
pagnés d’un utilitaire de création 


d'écrans graphiques Haute 
Résolution (D.A.0.) et d’un 
générateur de caractères (Carac- 
tor). 


D.A.0. 

Logiciel graphique 

Cassette pour Amstrad 

Édité par Cobra Soft | 
Prix : 120 FF | 


E logiciel de D.A.O. — | 

Dessin Assisté par Ordina- i 
teur — fourni avec une notice 
très succincte (une feuille 15 x 21 
cm glissée dans la cassette), per- 
met de créer et de sauvegarder 
des dessins en couleurs qui pour- 
ront être réutilisés à l’intérieur 


d’autres programmes. CL] 
Édit-plus | 
Éditeur pleine page | 
Basic francisé en option | 
Utilitaires 
Cassette pour Oric-1 48 Ko 
et Atmos | 
Édité par Isosoft | 
Prix : 195 FF | 
E programme chargé, le 
menu s’affiche et propose | 
huit options : l'éditeur, la numé- | 
rotation automatique des lignes, | 
un utilitaire de renumérotation, 


une fonction de recherche qui 
permet de remplacer un mot par 
un autre, la possibilité de com- 
pacter les lignes, de supprimer 
les REM, de lister le programme 

. de programmer en Basic | 
français. Dans les dernières 


Cobra Soft 

5 avenue Monnot 

71100 Châlon sur Saône 
1. : (85) 93 34 82 
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pages de la notice se trouve une 
table de francisation des mots 
Basic que l’utilisateur pourra 
modifier et augmenter afin de 
créer sa propre traduction, M 


LM Plus 

Compilateur Basic 

Cassette pour Oric-1 et Atmos 
Édité par Isosoft 

Prix : 250 FF 


OUR obtenir des exécu- 

tions beaucoup plus rapides 
sans connaître le langage- 
machine, l’une des solutions 
consiste à utiliser l’aide d’un 
compilateur. LM Plus rend les 
programmes jusqu’à sept fois 
plus rapides et sa présence en 
mémoire n’est pas nécessaire à 
l'exécution des programmes 
compilés. Notons qu’il ne tra- 
vaille que sur les nombres 
entiers. CL] 


Deux assembleurs pour 
Oric et MSX 


As des As 

Éditeur, assembleur, 
désassembleur 

Cassette pour Oric-1 et Atmos 
Edité par Isosoft 

Prix : 350 FF 


À notice, comportant une 

dizaine de pages, indique 
que le logiciel s'adresse en prio- 
rité aux programmeurs qui COn- 
naissent déjà l’assembleur du 
6502. Les débutants en la 
matière devront auparavant con- 
sulter un bon ouvrage d'initia- 
tion à la programmation de ce 
microprocesseur. L'As des as 
occupe environ 6 Ko en mémoire. 


Odin 

Macro-assembleur, éditeur, 
désassembleur 

Cassette pour MSX 

Édité par Loriciels 

Prix : 295 FF 


NE bonne connaissance de 

l’assembleur du Z 80 sera 
ici aussi nécessaire, mais il existe 
de nombreux livres sur le sujet. 
Une notice de vingt pages est 
fournie avec le logiciel qui se 
compose d’un éditeur-assem- 
bleur (place occupée en mémoire 
vive : environ 6 Ko) et d’un 
moniteur-désassembleur (8 Ko 
de MEM). LI 
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L a la forme du PB-100, ilen 

a l'aspect, mais il s’agit d’un 
produit nouveau. Chez Casio, le 
dernier ordinateur de poche 
s’appelle PB-410. I] contient une 
carte interchangeable de 
mémoire vive et continue, un 
Basic résident, et surtout une 
« data bank », c’est-à-dire une 
petite banque de données inté- 
grée, ce qui permet d’envisager 
des applications peu courantes 
jusqu’à présent sur des appareils 
de taille aussi réduite. 

S’il est vraisemblable que les 
ordinateurs de poche ne sont 
plus aussi compétitifs qu'avant 
comme appareils d’initiation, ils 
n’en conservent pas moins des 
atouts sérieux (réelle autonomie, 
mémoire permanente, format 
calepin) qui les rendent parfois 
irremplaçables pour des utilisa- 
tions sur le terrain. De ce point 
de vue, le PB-410 et sa « data 
bank » incorporée méritent 
l’attention. 

Le principe de fonctionne- 
ment est très simple : il s’agit 
d’un stockage de données alpha- 
numériques sous forme d’enre- 
gistrements en mémoire. Chaque 
enregistrement, numéroté, con- 
tient jusqu’à 62 caractères. Il est 
divisé en différents articles sépa- 
rés par une virgule. Si l’on veut, 
par exemple, se constituer un 
répertoire, on consignera dans 
chaque enregistrement un nom, 
un prénom, un numéro de télé- 
phone et une adresse. 

On peut, sans la moindre 
notion de Basic, exploiter les 
données enregistrées au moyen 
de la touche « mémo ». L’appa- 
reil se comporte alors comme un 
répertoire électronique permet- 
tant, entre autres opérations, la 
recherche d’un article ou d’un 
enregistrement (recherche nor- 
male, rapide, sélective ou condi- 


tionnelle). Ainsi, dans le cas où 
les données sont des noms et des 
numéros de téléphone, en tapant 
un nom, on obtient en réponse 
le numéro correspondant. On 
peut également rechercher tous 
les noms commençant par la 
même initiale, ou tous ceux dont 
le numéro associé commence par 
875, ou encore les enregistre- 
ments qui répondent à ces deux 
conditions. Par ailleurs, il est 


possible de corriger les enregis- 
trements (créer, détruire, modi- 
fier). Toutes ces fonctions sont 
appelées directement du clavier. 

Si l’on utilise maintenant cette 
banque de données par l’inter- 
médiaire d’un programme Basic, 
qu'obtient-on ? Grâce à un jeu 
d’instructions spéciales (READ#, 
LIST#, WRITE#, RESTORE#, 
etc.), les deux systèmes commu- 
niquent entre eux. Le répertoire 


Les anciens numéros 


œ 
! HA 


Hi 


de 


CARRE 


PEUT à 


Æ (1183287288 
(de 9 h à 19 h sauf dimanche: 
métro Convention ou Boucicaut) 
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électronique se transforme alors 
en un fichier de données exploi- 
tables par le programme. De 
nouvelles opérations deviennent 
possibles : sorties sur impri- 
mante, sauvegarde sur cassette, 
tri, protection par un mot de 
passe... On peut également se 
faciliter les choses avec un pro- 
gramme qui pose les questions 
utiles à l’entrée ou à la sortie des 
données. Les applications ne 
manquent pas : agenda, horaire, 
tarif, etc., le tout sous la main, 
avec un programme qui permet 
d’accéder facilement à la donnée 
recherchée. 

Comme sur la plupart des 
ordinateurs de poche, la capacité 
de la mémoire est réduite. Pour 
pallier en partie cette limitation, 
Casio a opté pour la carte de 
mémoire vive interchangeable. Il 
en existe deux modèles : 2 ou 
4 Ko, en fait 1568 ou 3616 pas de 
programme. Une petite pile au 
lithium confère à cette mémoire 
un caractère permanent, et l’on 
peut donc avoir ainsi à sa dispo- 
sition plusieurs unités de fichiers 
et de programmes. Cette forme 
de mémoire de masse est très 
pratique, maïs elle reste relative- 
ment onéreuse : 415 FF ttc pour 
la carte de 2 Ko et 600 FF pour 
celle de 4 Ko. Le PB-410 dans sa 
version de base est livré avec une 
carte de 2 Ko et vaut environ 
900 FF. 

Dernière question : si l’on 
oublie la petite banque de don- 
nées et ses commandes spécifi- 
ques, que reste-t-il ? Un PB-100 
standard ? Pas vraiment. S’il y 
a bien compatibilité entre les 
programmes du PB-100 qui 
tournent sans modification sur 
le PB-410, le Basic de ce dernier 
comporte quelques améliora- 
tions non négligeables. C’est 
ainsi que nous trouvons BEEP 
(le PB-100 était muet), PASS, 
READ/DATA/RESTORE, 
ON/GOTO, ON/GOSUB et 
REM. Une bonne chose aussi 
pour les calculs horaires : les 
fonctions de conversion sexa- 
gésimal-décimal DEG et DMSS$ 
sont apparues. Enfin, quelques 
mots clés ont été modifiés. L’or- 
dre VAC par exemple (efface- 
ment général du contenu des 
variables) est devenu CLEAR. 
Dans l’ensemble, cette évolution 
vers un Basic plus standard faci- 
litera l’adaptation des program- 
mes conçus pour d’autres 
matériels. 
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La programmation 
synthétique, c’est facile 
Keith Jarett 

Traduit de l’américain par 
Gilles Barret 

Éditions du Cagire 
Toulouse, 1984 

Broché, 128 pages 

Prix : 150 FF 


Les fonctions d’extension, 
c’est facile 

Keith Jarett 

Traduit de l'américain par 
M.-D. Dodin 

Éditions du Cagire 
Toulouse, 1984 

Broché, 188 pages 

Prix : 150 FF 


HR EPAESNE EME REASRR ERREUR IARTER 


France... 


Atari et le Sicob 


N absent de taille au Sicob : Atari. Et pourtant, deux pro- 

duits nouveaux de ce constructeur étaient là. Le premier, 
l’Atari 130 XE (présent sur les stands de Galaxie Distribution et 
de Codevwriter International) avec 24 Ko de mémoire morte, le 
même Basic que l’Atari 800 XL mais une mémoire vive deux fois 
plus importante (128 Ko) serait disponible dès le mois de juin. Il 
devrait coûter 2300 FF ttc dans sa version Pal. 

Un deuxième Atari se trouvait sur les stands de Galaxie Distri- 
bution et de Micro Application : le 520 ST, surnommé aussi « Jac- 
kintosh ». Si l’on sait qu’il doit concurrencer le Macintosh d’Ap- 
ple, avec 512 Ko, de la couleur, le logiciel GEM lui donnant des 
possibilités analogues à celles de Macintosh et un prix nettement 
inférieur, on ne sait toujours pas quand il sera disponible en 


E premier de ces deux 

ouvrages (qui sont exclusi- 
vement consacrés à la HP-41) est 
un panorama des dernières 
découvertes en programmation 
synthétique. On y trouve, en 
particulier, un exposé des ins- 
tructions synthétiques les plus 
courantes, comment les générer 
— d’abord au coup par coup, 
puis toutes à la fois — et com- 
ment les assigner. L'utilisateur 
de la 41 pourra lire également 
une étude de la fonction F0 qui 
permet de comprendre le méca- 
nisme de l'édition des program- 
mes. Une carte détaillée de la 
mémoire et quelques applica- 
tions pratiques (mesure de la 
durée d’exécution des program- 


HP-41 
LES FONCTIONS 
D'EXTENSION, 
C'est facile! 


module de fonctions d'extension mémoi 
pour HP-41C et CV ; HP-41CX 


Editions de CAGIRE 


En attendant 
À /a bombe d'Atari, 
le 520 ST, voici 
le 150 XE déjà 
disponible. 


mes, par exemple) complètent 
l’ensemble. Signalons pour finir 
qu'une large place est faite au 
PPC ROM produit par et pour 
le PPC US. 

Le second ouvrage est entière- 
ment consacré aux fonctions 
d’extension. Si la programma- 
tion synthétique y est abordée 
dans un chapitre, c’est appliquée 
aux fonctions étendues. L’au- 
teur traite longuement des 
bogues du module X-Fonctions. 
Elles ont été corrigées sur les 
modèles les plus récents, mais 
des parades sont données pour 
les versions antérieures. 

Les fonctions d’extension sont 
traitées par grandes classes : 
fichiers de programmes, de don- 
nées, de textes et fonctions diver- 
ses. Parmi les applications pra- 
tiques développées figure un 
traitement. de texte destiné aux 
utilisateurs qui, n’ayant pas la 
version CX de la 41, ne dispo- 
sent pas de la fonction ED. 

En annexe, dans les deux 
livres, on trouvera tous les 
codes-barres correspondant aux 
programmes commentés. Les 
traductions, assez littérales, don- 
nent un style un peu monotone 
à l’ensemble, mais cela n’empé- 
chera pas les fanatiques de la 
HP-41 de dévorer ces livres. 


OA B 


L’Apple Ile change 
de microprocesseur 


E microprocesseur de l’Ap- 
ple Ile, le 6502, est rem- 


placé par le NCR 65C02, micro- 


processeur à technologie C-MOS 


qui se trouve déjà sur l’Apple 


Ilc. Ainsi, l'Apple Ile devien- 


drait, selon Apple, « 100 % 
compatible avec les logiciels de 


PApple Ilc » et ne serait plus 
compatible qu’à « 90 % avec les 
logiciels développés auparavant 
sur l’Apple Ile ancienne 
version ». LI 
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Clefs pour MOS5 
Gilles Blanchard 
Éditions du PSI 
1985, 146 pages 
Reliure spirale 
Prix : 120 FF 


OMME les autres titres de 

la collection « Clefs 
pour... », cet ouvrage n’est pas 
un manuel d'initiation : l’infor- 
mation y est plus importante que 
le style. Ce mémento d’utilisa- 
tion du Basic et du langage- 
machine du MO S est destiné aux 
programmeurs. Un livre qui 
reste à côté de l’ordinateur et qui 
permet de trouver rapidement les 
réponses aux problèmes que 
peut poser l’écriture d’un pro- 
gramme. CL] 


Listes et tableaux numériques 
en Basic 

Henri Hunic 

Éditions Techniques et 
Scientifiques Françaises 
Paris, 1985 

Broché, 128 pages 

Prix : 85 FF 


ANS les programmes 

Basic, on est souvent ame- 
né à traiter des listes et des 
tableaux numériques. Dans 
quels cas et comment ? Ce livre 
tente de répondre à ces questions 
uniquement avec des exemples 
d’application. On n’y trouve pas 
forcément la solution à son pro- 
blème particulier, mais au moins 
un chemin qui mène à cette so- 
lution. 


L'ordinateur de poche 
Luc Smeesters 
Editions Marabout 
Paris, 1985 

Broché, 192 pages 
Prix : 25 FF 


ONSACRÉ uniquement 

aux ordinateurs de poche 
programmables en Basic, ce livre 
est censé guider le futur utilisa- 
teur dans son choix : il expose ce 
que l’on peut faire avec un ordi- 
nateur de poche, présente la pro- 
grammation Basic, et enfin 
donne une description détaillée 
de chaque matériel et de son 
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Basic (HP-71B, Canon X-07, 
PC-1500A/1260/1245/1401, 
PB-700/110, FX-750P/720P). 
Reste donc à choisir. Les prix 
sont absents, mais pas les adres- 
ses des importateurs dans les 
pays francophones. Li] 


Basic Amstrad CPC 464 
Méthodes pratiques 
Jacques Boisgontier 
Bruno Césard 

Éditions du PSI 

1985, 166 pages 

Prix : 100 FF 


ET ouvrage devrait per- 
mettre au nouvel acqué- 
reur d’un Amstrad d’approfon- 
dir ses connaissances de façon 
théorique et pratique. Les 
auteurs y décrivent l’utilisation 
des instructions et s’attachent 
surtout à apporter au program- 
meur des idées et des exemples 

d’application. 
Li 


Microprocesseurs 16 bits 
Michel Aumiaux 
Éditions Masson 

1985, 220 pages 

Prix : 150 FF 


ET ouvrage décrit plus par- 

ticulièrement deux micro- 
processeurs, le 8086 et le 68000. 
L'étude de ces 16 bits, qui ont 
des possibilités comparables à 
celles des processeurs des mini- 
ordinateurs, est d’un abord rela- 
tivement difficile. C’est pour- 
quoi le lecteur potentiel devra 


| 
st 


al 
LU) 


déjà bien connaître la structure 
et le fonctionnement des micro- 
processeurs 8 bits pour com- 
prendre ce livre. De fait, il s’agit 
bien plus d’une suite de remar- 
ques que d’un ouvrage vraiment 
didactique qui ferait découvrir 
les 16 bits comme une « his- 
toire ». Li] 


Guide pratique du Sinclair QL 
Eric Tenin et Jean-Manuel 
Van Thong 

Éditions Edimicro 

1985, 192 pages 

Prix : 135 FF 


Programmes sur Sinclair QL 
Cassette contenant les 
exemples du livre 

Prix : 1OFF 


ONFORME à l’idée qu’en 

donne son titre, ce livre 
guidera les premiers pas de l’uti- 
lisateur peu attiré par le manuel 
du QL. Il débute sur une présen- 
tation générale de l'ordinateur, 
entrées/sorties et extensions 
pour aborder ensuite les élé- 
ments indispensables à la mise 
au point et à la sauvegarde des 
programmes. Le Super Basic est 
présenté de façon assez précise 
(ses instructions, ses fonctions, 
ses procédures et leurs applica- 
tions, le concept de récursion, 
etc.) ainsi que les possibilités gra- 
phiques du QL, exemples à 
l'appui. L ] 


Amstrad lance 
le CPC 664 


USQUE-LA, on parlait de 
P'Amstrad quand on voulait 


nommer le CPC 464. Doréna- 
vant, il faudra faire la différence 
entre le CPC 464 et le nouveau 
CPC 664. Pour les distinguer 
physiquement, c’est simple : à la 
place du lecteur de cassettes du 


CPC 464, se trouve un lecteur de 
disquettes (3 pouces) sur le CPC 
664, Cet ordinateur est livré avec 
un moniteur monochrome ou 
couleur, 64 Ko de mémoire vive 
(dont 41 disponibles à l’utilisa- 
teur), un processeur Z80A, et un 
Basic plus riche que celui du 464. 
Le CPC 664 est vendu 4490 FF 
avec un moniteur monochrome 
vert, et 5990 FF avec un moni- 
teur couleur. Un second lecteur 
de disquette est disponible au 
prix de 1990 FF. = 


Nouveau TO 


N nouvel ordinateur 

Thomson devrait appa- 
raître à l’automne 1985 : le TOO. 
Cette machine serait, d’après 
Thomson, « familiale et semi- 
professionnelle », ou encore 
« familiale haut de gamme ». 
A part cela, Thomson reste 
étrangement avare d’informa- 
tions. Li 
Nos copains de 
L'Ordinateur Individuel 


N numéro hors série de 

notre confrère L’Ordina- 
teur Individuel est entièrement 
consacré au Commodore 64 : 
périphériques, langage-machine, 
Pascal sur Commodore, gra- 
phisme, programmes de jeux, 
etc. Mais surtout, on y trouveun 
véritable roman policier qui B- 
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D nous fait saisir, en vingt pages 
(avec quel suspens !), les secrets 
de la mémoire vive du C.64. Ce 


numéro Spécial Commodore est 
en vente dans les kiosques, au 
prix de 35 FF. = 


Les 24 heures de l’informatique : 


Champions toutes catégories, deux amateurs 


ES épreuves de ces premiè- 

res 24 heures de l’informa- 
tique se sont déroulées les 
samedi 4 et dimanche 5 mai 1985 
dans les locaux et sous l’égide du 
Centre de Bureautique et Infor- 
matique (CBI). 

Cent candidats sélectionnés à 
partir de 1500 dossiers se regrou- 
paient en équipes de deux per- 
sonnes. Répartis en deux catégo- 
ries (professionnels ou ama- 
teurs), les concurrents devaient 
concevoir un logiciel à vocation 
pédagogique destiné au HP-150, 
un ordinateur à écran tactile. Le 
sujet : à partir d’un des chapi- 
tres d’une grammaire destinée 
aux élèves de CE 2 (le choix du 
chapitre était laissé aux candi- 
dats), écrire un programme qui 
rende attrayant l'apprentissage 
de cette discipline. 

Les vainqueurs toutes catégo- 
ries confondues se sont vu 
remettre un HP-150. Engagés 
sous l'étiquette « amateurs », 
Jean-Marc Leroy (20 ans) et 
Thierry Orliac (21 ans) sont étu- 
diants en informatique. Ils ont 
en outre été sélectionnés d’office 
pour le concours Diane 85 orga- 
nisé par l’Agence de l’Informa- 
tique. 

Le premier prix de la catégo- 
rie « professionnels » a été rem- 


75491 Paris Cedex 10. 
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Troisième festival du logiciel : 
il n’est pas trop tard 


OUS pouvez encore présenter votre candidature au 3° festi- 
val du logiciel qui se déroulera du 15 au 27 juillet prochain 
à Villeneuve-lez-Avignon. Il suffit d'envoyer votre demande avant 
le 15 juin 1985 à l'adresse suivante : 5 place du Colonel Fabien, 


porté par Gérard Arnaud (45 
ans), informaticien, qui faisait 
équipe avec son fils Rémi (20 
ans), étudiant en mathématiques 
supérieures. 

Enfin, les gagnants de la caté- 
gorie « amateurs » sont deux 
étudiants en informatique du 
CBI, Jean-Luc Marquilly et 
Jean Trémolières (respective- 
ment 19 et 20 ans). 

Les organisateurs du concours 
prévoient bien évidemment de 
renouveler l’expérience l’année 
prochaine. Préparez-vous ! 8 


Concours pour tous 


N concours est ouvert, 

jusqu’au 31 août 1985, aux 
créateurs de logiciels sur Apple 
Ile, Ilc, Commodore 64, 
T07/70, MOS ou Alice 90. Le 
sujet de ce concours, organisé 
par Édiciel et Télérama : écrire 
un logiciel original figurant un 
jeu de rôle ou d'aventure. Le 
vainqueur verra son logiciel édité 
et commercialisé par Édiciel 
Hachette. 


Le règlement complet peut 
être demandé à : 
Télérama Promotion 


$0 rue de Miromesnil 
75008 Paris. 


Comme les années précédentes, tous les sujets sont acceptés 
(jeux, didacticiels, etc.). Mais les 22, 23 et 24 juillet seront plus 
particulièrement consacrés à des réalisations professionnelles (uti- 
litaires, logiciels de développement, etc.). Le 24 juillet, « journée 
des auteurs », réunira autour des programmeurs de nombreux 
constructeurs et éditeurs. Des débats et tables rondes sont prévus. 
Ordre du jour : comment devenir auteur, comment se faire édi- 
ter, comment protéger ses droits. 

Les délibérations du jury et l’annonce du palmarès auront lieu 
le 28 juillet et la remise des prix se fera en septembre, au Sicob. 


UN LIVRE 


Es 
xs ET POKI 
où COMMODORE 64 


ta 


PEEKSs et POKESs du 
Commodore 64 

Liesert 

Edité par Micro Application 
1984, 200 pages 

Prix : 99 FF 


ETTE traduction d’un 

ouvrage allemand, même si 
elle arrive un peu tard, fera plai- 
sir à ceux — et ils sont nombreux 
— qui veulent aller plus loin avec 
leur C.64 au Basic un peu 
étriqué. 

L’auteur commence avec pru- 
dence, et à juste titre, par une 
présentation théorique de la 
structure générale de la machine 
et des instructions auxquelles le 
titre fait référence (PEEK, 
POKE, USR et autre SYS), tout 
en jetant un œil sur l’arithméti- 
que binaire. C’est un peu rapide 
mais très utile. 

Suit une quantité phénomé- 
nale de trucs qui, à coup de 
PEEKS et de POKES, permettent 
de faire à peu près n’importe 
quoi, entre autres dans les 
domaines du graphisme, de la 
musique, des périphériques et 
des accessoires. Les exemples 
d’application sont généralement 
étayés d’un court programme de 
démonstration. 

Les dernières pages sont con- 
sacrées à une approche simpli- 
fiée du langage-machine, accom- 
pagnée d’un intéressant pro- 
gramme de simulation qui aidera 
à comprendre le fonctionnement 
de base de la machine. Un 
tableau complet des adresses de 
la page zéro est fourni. 

Un livre dense, touffu même 
(mais un index permet de s'y 
retrouver) qui n’est visiblement 
pas destiné aux débutants. Beau- 
coup de renseignements précieux 
pour une machine qui en a 
besoin. 


JPL M 


La gamme Hector : 
Micronique aligne ses prix 


L "HECTOR HRX (Forth ré- 
sident, 64 Ko de MEV) 
passe de 3990 à 2990 F s’il est 
accompagné du Basic 3 X en 
cassette et de 4350 à 3450 FF 
avec le Basic 3 X en cartouche. 

L’Hector 2 HR (Basic 3 rési- 
dent, 48 Ko de MEV), proposé 
dans son coffret Loisirs-Plus, 
coûte 1500 F de moins : 
2490 FF vous suffiront donc 
pour l'acquérir. 

Enfin, le dernier né, l’Hector 
HR MX (Basic 3 X, Forth, 
Assemblex et Monitrix résidents, 
64 Ko de MEV) qui était à 
5490 FF dans sa version 40 
colonnes, vaut désormais 
4190 FF. La version 80 colonnes 
de ce modèle n’était pas sortie. 
Vous pouvez maintenant la trou- 
ver ; elle coûte 4690 FF. 

Tandy, Atari, Hector, espé- 
rons qu’à l'avenir nous aurons 
l’occasion de multiplier l’an- 
nonce de pareilles nouvelles, tant 
en ce qui concerne les matériels 
que les logiciels. Li] 


TI 57 nouvelle version 


ES calculatrices program- 

mables préoccupent encore 
Texas Instruments. Une des plus 
célèbres était la bonne vieille TI 
57 à diodes rouges. Après la TI 
57 LCD, elle est aujourd’hui 
(re)lancée dans une nouvelle ver- 
sion, la TI 57 II. Cette dernière 
est dotée d’une mémoire perma- 
nente, négociable entre 48 pas de 
programme et 8 registres de don- 
nées. En tout, elle possède 80 
fonctions (tests, branchements, 
sous-programmes, etc.) et un 
clavier plus proche de la TI 57 
LCD que de la TI 57. Elle coûte 
environ 295 FF, et elle est garan- 
tie deux ans. 
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N l’avait déjà rencontré à 

l'étranger. Depuis la fin 
mai, on peut l'acheter en 
France : le Commodore Plus/4. 
Outre un Basic, version 3.5, 
comprenant plus de 75 comman- 
des, un clavier Qwerty, 64 Koc- 
tets de mémoire vive — dont 60 
sont disponibles à l’utilisateur, 
cet ordinateur est doté de qua- 
tre logiciels intégrés : un traite- 
ment de texte, un tableur, un 
logiciel de gestion de fichiers et 
un logiciel graphique. Dans sa 
version Pal, il devrait être vendu 
1990 FF. E 


Techniques de programmation 
sur Apple II 

René Belle 

Éditions du PSI 

1985, 164 pages 

Prix : 95 FF 


OMMENT programmer ? 

L'auteur propose de réali- 
ser un programme simple de ges- 
tion de données. C’est une façon 
intéressante de s’initier. Si l’ap- 
plication est classique, elle per- 
met néanmoins des mises au 
point riches d’enseignement. 


Dessins géométriques et 
artistiques avec votre 
micro-ordinateur 
Jean-Paul Delahaye 
Éditions Eyrolles 

1985, 256 pages 

Prix : 120 FF 


[ votre ordinateur dispose 

de quelques possibilités gra- 
phiques, vous pourrez certaine- 
ment, moyennant quelques 
adaptations, utiliser ces pro- 
grammes qui sont écrits dans un 
Basic standard. Vous obtiendrez 
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UN PETIT TOUR CHEZ LE LIBRAIRE 


Un magazine sur 
la recherche informatique 


ES étudiants des écoles 

d’ingénieurs ou des univer- 
sités de Paris ou de Province 
trouveront, par l'intermédiaire 
de leur département informati- 
que, un nouveau magazine cOn- 
sacré à la recherche informati- 
que : 5 génération. Diffusée 
gratuitement, mais pour un 
public restreint, cette revue tri- 
mestrielle devrait « constituer, 
aussi bien un complément de la 
formation acquise dans les éco- 
les, qu’une ouverture sur les 
innovations technologiques ». 


figures, courbes, étoiles, fracta- 
les et quadrillages de toutes sor- 
tes qui vous donneront certaine- 
ment des idées pour créer vos 
propres dessins. Li] 


Harrap’s informatique 
dictionnaire 
Anglais-Français 
Français-Anglais 
Claude Camille 

et Michel Dehaine 
Éditions Harrap 

1985, 200 pages 

Prix : 225 FF 


EPUIS la dernière édition 

du Harrap's informatique, 
en 1976, le langage de la profes- 
sion a considérablement évolué. 
Voici une remise à jour qui tient 
compte des termes les plus 
récents. On y trouvera tous les 
mots qui se rapportent aux 
matériels et aux logiciels et la ter- 
minologie employée dans les 
domaines proches de l’informa- 
tique, l’électricité, l’électronique 
et les télécommunications. Une 
large part du dictionnaire a 
été consacrée à la micro- 
informatique. L 


DEUX LIVRES 


Le livre du MSX 

Daniel Martin 

Edité par BCM (Belgique) 
Distribué par PSI 

1984, 204 pages 

Prix : 110 FF 


E livre du MSX, voilà un 

titre que l’on pourrait trou- 
ver bien définitif ! Cette éti- 
quette de manuel de référence 
cadre cependant assez bien avec 
la réalité car on recueille au fil 
des pages une importante 
somme d'informations. Si vous 
voulez connaître l’organisation 
interne de votre machine, vous 
y trouverez présentés avec leur 


Basic MSX 
Méthodes pratiques 
Jacques Boisgontier 
Éditions du PSI 
1985, 216 pages 
Prix : 120 FF 


ES manuels livrés d’origine 
avec les ordinateurs sont 
souvent des listes d'instructions 
assez rébarbatives présentant 
sous un aspect plutôt technique 
les diverses possibilités de la 
machine. Certes, les initiés y 
trouvent leur compte, mais le 
débutant reste souvent « blo- 
qué », ne comprenant ni le sens, 
ni l’intérêt, ni même parfois le 
fonctionnement de certains 
ordres. Quant aux livres d’initia- 
tion, ils sont souvent trop 
généraux. 

Les « méthodes pratiques » 
de Jacques Boisgontier abordent 
le problème sous un autre angle. 
L'ouvrage va plus loin que la 
plupart des manuels, expliquant 
ce qu'il est possible de faire avec 
les instructions du Basic MSX. 
Une première partie fait le tour 
des possibilités de la machine 


mode d'emploi les « banks », les 
« slots », les diverses tables et 
registres des différents circuits et 
les adresses mémoire utiles. 
Attention, si la lecture est inté- 
ressante, elle n’est cependant pas 
toujours aisée (elle nécessite une 
bonne vue, la taille de certains 
caractères étant fort réduite). 
Des connaissances de base en 
Assembleur ainsi qu’une bonne 
habitude des notions hexadéci- 
males seront nécessaires. 

Une série de petits program- 
mes, en Basic ou en Assembleur, 
sont proposés pour illustrer les 
divers chapitres. Il est possible 
de se les procurer sur disquette, 
dans l’un des trois formats dis- 
ponibles en MSX, en écrivant 
aux Éditions BCM. Cette for- 
mule vaut surtout pour les pro- 
grammes longs : le désassem- 
bleur en Basic, le générateur de 
caractères, le moniteur, etc. 

On pourra regretter l’aspect 
un peu succinct de certaines par- 
ties ; celle qui traite du généra- 
teur sonore, par exemple, n’est 
pas vraiment exploitée à fond. 
Mais l’auteur promet lui-même 
un complément à cet ouvrage, 
alors. 

Éditions BCM 

24 route de la Sapinière 
4960 Banneux 

Belgique 


avec de nombreux exemples 
courts et bien commentés. La 
deuxième partie permettra au 
lecteur d'approfondir ses con- 
naissances par l’étude détaillée 
d’une vingtaine de programmes. 

S'il s'adresse en priorité au 


débutant, l’ouvrage séduira 
aussi l'amateur averti par son 
côté pratique. 
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Neuveau chez Sharp, le PC-2500 


DU CÔTÉ DES CLUBS 


Dans la Seine-Maritime 


OYENNANT une cotisa- 
tion annuelle de 50 F à 
laquelle s'ajoute un droit d’ins- 
cription de 100 F, vous pourrez 
adhérer au Club 2000 d’Etran, 
près de Neuville les Dieppe. 
Association à but non lucratif, 
le club met à la disposition de ses 
membres un Apple Ile, un Ams- 
trad CPC 464 (couleur) et un 
Oric Atmos. Deux rendez-vous 
hebdomadaires : le mercredi de 
20 h à 22 h 30 et le samedi de 
13 h 30 à 16 h. Pour en savoir 
un peu plus, vous pouvez écrire 
à l’adresse suivante : 
Thierry Courant 
15 rue de l’Ancien Port 
Etran 
76370 Neuville les Dieppe 


Dans les Pyrénées- 
Atlantiques 


ANS le cadre des fêtes 

patronales de Maslacq (si- 
tué entre Orthez et Pau, non loin 
du complexe de Lacq), le Micro- 
club du village organise le 
samedi 29 juin prochain une 
foire à la micro-informatique 
d’occasion qui accueillera ceux 
qui veulent vendre, acheter ou 
échanger ordinateurs et périphé- 
riques. Aux personnes qui dési- 
rent vendre du matériel, une par- 
ticipation de 30 F est demandée 
pour la location de l’emplace- 
ment (les intéressés doivent 
écrire dès maintenant au club). 

À partir de 14 heures, la salle 

du Trinquet accueillera les par- 
ticipants à cette première foire 
du micro-ordinateur et du péri- 
phérique d'occasion. L’entrée 
est gratuite. 
Microclub de Maslacq 
Maison Menat 
64300 Orthez 


Dans l’Hérault 


Montpellier, un nouveau 

club vient de naître. I] a 
pour but de rassembler le plus 
grand nombre possible d’utilisa- 
teurs de Sanyo MBC 550/555. Il 
n’est pas nécessaire d’habiter la 
ville pour participer à ses activi- 
tés. Des quatre coins de France, 
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et même de l’étranger, les pro- 
grammeurs de tous horizons 
sont les bienvenus. 

Association régie par la loi de 
1901, le Sanyo-Club demande à 
ses adhérents une cotisation de 
100 F. Ses projets sont multiples 
et variés : échanges de connais- 
sances et de documentation, éla- 
boration commune de program- 
mes, études d’extensions maté- 
rielles et diffusion parmi les 
membres du club d’un bulletin 
périodique. 

Pour tous 
écrire à : 
Philippe Chardon 
1 rue de Clémentville 
34000 Montpellier 


renseignements, 


En Haute-Savoie 


A Maison des Jeunes et de 

la Culture d’Annemasse an- 
nonce la création de trois clubs, 
le premier consacré à l’ Amstrad, 
le second à l’ Apple I et le troi- 
sième au Commodore 64. Ils 
trouveront leur place au sein de 
l’activité informatique qui fonc- 
tionne déjà à la MJC. Chaque 
semaine se tiennent six cours qui 
s'adressent aux débutants autant 
qu’aux « branchés ». 

Pour obtenir des informations 
plus précises, vous pouvez télé- 
phoner au 16 (50) 92 10 20, à 
partir de 16 heures. 

MJC Maison pour tous 
3 rue du 8 Mai 
74100 Annemasse 


Des accessoires 
informatiques vendus 
par correspondance 


pel est gratuit) : 
16 (05) 27 78 11 


Moore Paragon 
22 rue de Sèvres 


92100 Boulogne Billancourt M 


OUR recevoir gracieuse- 
ment le deuxième catalogue 
de fournitures informatiques 
diffusé par la Société Moore 
Paragon (cartouches de rubans 
encreurs, papier pour impri- 
mante, disquettes, mais aussi 
imprimantes, modems et mobi- 
lier de bureau), il suffit d’en 
faire la demande en utilisant leur 
numéro de téléphone vert (l’ap- 
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UN LIVRE 


Programmation du 
Commodore 64 
lan Sinclair 
Editions Belin 
Collection Modulo 
1984, 130 pages 
Prix : 95 FF 


OICT un livre qui vient 

grossir les rangs des ouvra- 
ges d'initiation au Basic sur le 
C.64. Allant progressivement de 
notions simples (l'instruction 
PRINT) aux informations plus 
compliquées (on aborde le 
langage-machine), les chapitres 
ont au moins le mérite de la 
clarté faute d’avoir celui de 
l'originalité. 

L'auteur a donc adopté une 
démarche rassurante pour le lec- 
teur. Ce dernier pourra, tenant 
le livre d’une main et pianotant 
sur le clavier de son C.64 de l’au- 
ire main, expérimenter à loisir en 
suivant pas à pas les exemples 
d’application proposés. 

Quelques pages seulement 
sont consacrées à la conception 
des programmes (analyse et 
découpage en modules). C’est 
trop peu, mais ce n'était pas non 


RESENTE au Spécial Sicob du 6 au 11 mai, le PC-2500 

(21X29,7 x 5 cm) devrait être en vente dès maintenant. Il 
dispose d'un écran à cristaux liquides de quatre lignes de 24 carac- 
tères et d’un clavier « mécanique » Qwerty. L’imprimante, inté- 
grée, est une petite table traçante quatre couleurs munie de stylos 
à bille. Le Basic de ce nouveau modèle, qui contient en mémoire 
morte un tableur et un répertoire téléphonique, est celui du Sharp 
PC-1350 (voir page 58 de ce numéro). D'origine, le PC-2500 offre 
3 Ko de mémoire vive qui pourront être augmentés par l’adjonc- 
tion de cartes d'extension (8 Ko, environ 800 FF : 16 Ko, envi- 
ron 1600 FF). II coûte déjà, dans sa version de base, près de 


plus l’objet de l'ouvrage. Les 
possibilités graphiques et sono- 
res de l’ordinateur y sont traitées 
moins succinctement et l’on 
trouve les éléments pour de pre- 
mières recherches ; cela ne 
donne néanmoins qu’une idée 
superficielle des vraies capacités 
de la machine. 

Le chapitre « Touches de 
fonctions programmables » est 
un peu.irritant : dix lignes de 
texte et un petit tableau font un 
peu trop brièvement le tour du 
sujet. 

Cet ouvrage; qui se termine 
sur une description des exten- 
sions possibles (imprimante, 
joystick, cartouches, disquettes, 
etc.) sera utile aux vrais débu- 
tants en leur fournissant la 
matière pour démarrer leur 
apprentissage. 


JPL HE 
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ACCÈS DIRECT 


VOYAGE 


AU CENTRE D'UN FICHIER 


‘ACCÈS à une information contenue dans un 
fichier est particulièrement rapide s'il est 
direct, Mais il met en œuvre toute une série 
d'opérations. Pour mieux comprendre ce qui se 
passe, une visite dans le système d ‘exploitaiteg 


est nécessaire, 


Parmi les techniques de recherche 

d'informations à l’intérieur d’un 
fichier, il en est deux particulièrement 
simples, et auxquelles les autres font 
appel : l’accès séquentiel et l’accès 
direct. Ces techniques ont pour objet de 
restituer le contenu d’un élément d’un 
fichier. Cet élément du fichier est appelé 
« enregistrement ». 


L'accès séquentiel effectue la lecture 
complète d’un fichier, enregistrement 
par enregistrement. Il part de l’enregis- 
trement numéro zéro, et continue avec 
les enregistrements numéro un, numéro 
deux, etc., jusqu’à la fin du fichier. 
Ainsi, l’accès à l’enregistrement numéro 
x peut devenir extrêmement long si, la 
taille du fichier étant importante, l’in- 
formation demandée se situe très loin du 
début. 


L'accès direct, à partir d’un numéro, 
va directement à un enregistrement 
donné. Le temps d’accès à l’information 
ne dépend plus alors que dans une fai- 
ble part du numéro d’enregistrement. 
Ainsi, avec un disque dont le temps 
d'accès moyen est de 20 millisecondes 
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(performance honorable pour un disque 
dur), la lecture en accès direct de l’en- 
registrement numéro 1000 d’un fichier 
ne mettra guère plus de 20 millisecon- 
des. Si l’on exploite le fichier en séquen- 
tiel, il faudra, avant de lire l’enregistre- 
ment 1000, accéder inutilement aux 
1000 précédents qui portent les numé- 
ros 0 à 999. Une telle lecture met donc, 
dans le pire des cas, 1001 fois plus de 
temps. 


Où se trouve 


au juste quoi ? 


Si l'exploitation d’un fichier par accès 
direct est particulièrement rapide, sa 
mise en place n’est pas simple. Bien 
entendu, la plupart des langages de pro- 
grammation disposent d’une routine 
réalisant cette fonction. Mais voyons 
exactement ce qui se passe à l’intérieur 
de l’ordinateur. Par exemple, dans le 
cas le moins compliqué, celui de la lec- 


ture, on insère dans un programme 
Basic l'instruction : READ # 1,21;1 


Cette instruction va rechercher dans 
le fichier ouvert sous le numéro 1, le 
vingt et unième enregistrement, et met- 
tre son contenu dans la variable I. Le 
système d’exploitation est appelé à ce 
moment-là. Il effectue la lecture en acti- 


vant la routine adéquate qui aura reçu 


(généralement) trois paramètres. Le pre- 
mier est le numéro logique du fichier, 
le second est le numéro d’enregistre- 
ment, et le troisième est l’adresse en 
mémoire et la longueur de l’information 
à restituer (ici, la variable I). 


Dans un premier temps, il est néces- 
saire de localiser précisément à quel 
endroit du fichier se situe l’information. 
Prenons le cas le plus simple et le plus 
fréquent, celui où tous les enregistre- 
ments ont la même longueur. Cette lon- 
gueur est généralement indiquée dans le 
répertoire du disque (ou de la bande 
magnétique) sur lequel le fichier est 
mémorisé. Elle se trouve également en 
mémoire centrale, car le système d’ex- 
ploitation, dans le but d'économiser le 
nombre d’accès au disque, n’a pas man- 
qué de charger cette information lors de 
l’ouverture du fichier. 


À partir du début de ce fichier, il est 
donc possible de calculer simplement le 
numéro de l’octet où commencent les 
informations recherchées : il est égal au 
produit du numéro d’enregistrement 
demandé par la longueur d’un enregis- 
trement. Soit : (n° de l’octet) = (n° d’en- 
registrement) x (longueur d’un enregis- 
trement). 


Bien entendu, nous considérons que 
le premier octet d’un fichier ou que son 
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ACCÈS DIRECT 


a VOYAGE AU CENTRE D'UN FICHIER 


Calcul de la position des données 
(sous-programme) 


calcul de ia position 
du premier octet de l'enregistrement 
à lire dans le fichier 


calcul du numéro du secteur 
et du numéro de l’octet 
dans le fichier 


calcul du numéro du secteur 
à lire sur le disque 
ou la bande magnétique 


calcul du nombre de secteurs 
à lire en fonction de la longueur 
des données à rechercher 


retour au 
programme principal 


premier numéro d’enregistrement est le 
numéro zéro. Toutefois, il est rarement 
possible d’adresser, à partir du numéro 
de son premier octet, une information 
située sur une mémoire de masse (un dis- 
que ou une bande magnétique). En 
effet, les données sont presque toujours 
lues par secteurs de 256 octets. C’est 
pourquoi il faudra convertir le numéro 
de l’octet en un couple [numéro de sec- 
teur, numéro d’octet dans ce secteur]. 
Grâce aux opérateurs DIV et MOD (le 
premier donne le résultat entier d’une 
division, le second, le reste de la divi- 
sion entière), on a : (n° de secteur dans 
le fichier) =(n° de l’octet) DIV 256 et 
(n° de l’octet dans le secteur) =(n° de 
l’octet) MOD 256. 


Si la position de l’information est 
maintenant localisée dans le fichier, il 
faut encore rechercher où elle se situe 
sur le disque ou la bande magnétique. 
Et pour cela, on doit connaître la posi- 
tion du début du fichier sur le support. 
De même que la longueur des enregis- 
trements, cette information est mémo- 
risée dans le répertoire du disque, et elle 
a été recopiée en mémoire centrale par 
le système d’exploitation. Elle indique 
souvent un numéro de secteur qui per- 
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met de savoir où se trouve la première 
information du fichier sur lequel on tra- 
vaille. Le numéro de secteur du disque 
sur lequel est mémorisé le début de l’en- 
registrement est donné par : (n° du sec- 
teur sur le disque) = (n° du secteur dans 
le fichier) + (n° du premier secteur du 
fichier). 

Ainsi, le début de l’enregistrement qui 
nous intéresse est parfaitement localisé 
sur le disque ou la bande magnétique. 
Il reste alors à savoir combien de sec- 
teurs doivent être lus. En effet, si l’en- 
registrement à lire commence au 255° 
octet et s’il a une longueur supérieure 
à un octet, l'information à restituer se 
trouve « à cheval » sur deux secteurs. 
Il sera donc nécessaire de lire ces deux 
secteurs. Il en est de même pour un enre- 
gistrement de longueur supérieure ou 
égale à 258 octets : il nécessite la lecture 
d’au moins deux secteurs (parfois 
trois !). Le nombre de secteurs à lire est 
donné par le calcul suivant : (nombre de 
secteurs à lire)—((numéro de l’octet 
dans le secteur) + (longueur d’un enre- 
gistrement) +255) DIV 256. 


Une salle d'attente 


La préparation de la lecture est ainsi 
terminée. Toutefois, il faut savoir que 
les accès aux disques ou aux bandes 
magnétiques sont extrêmement longs 
comparés aux accès à la mémoire cen- 
trale. Il est donc important de réduire 
le plus possible le nombre d’accès. Pour 
cela, les systèmes d’exploitation utilisent 
ce que l’on appelle une mémoire tam- 
pon (buffer, en américain). Ce tampon 
représente une fenêtre du fichier, il con- 
serve en mémoire centrale une partie de 
celui-ci, d’une longueur de quelques sec- 
teurs. Sur certains systèmes, ce méca- 
nisme est optionnel et doit être explici- 
tement demandé lors de l’ouverture du 
fichier, par le mot BUFFERED. 


Après un accès à une certaine partie 
du fichier, il est donc possible que le 
tampon contienne déjà les données 
recherchées. Dans ce cas, la lecture à 
partir du disque est inutile. Les infor- 
mations sont directement transférées 


Chargement du tampon 
(sous-programme) 


les secteurs à 
lire sont-ils déjà dans le 
tampon du système 


le drapeau indiquant 
que le tampon doit être récrit, 
est-il positionné ? 


demande au contrôleur du disque 
ou de la bande magnétique de mettre 
à jour les secteurs à récrire 


modification du nombre de secteurs 
à lire en fonction du facteur de blocage 


demande au contrôleur du lecteur de 
lire les secteurs et de les transférer 
dans le tampon 


retour au 
programme principal 


depuis le tampon. S’il a une capacité de 
N secteurs et si l’on doit en lire NL, il 
faut alors vérifier que le numéro du pre- 
mier secteur à lire se trouve dans les 
(N - NL +1) premiers secteurs mémori- 
sés dans le tampon. Dans le cas 
contraire, le tampon est mal placé et les 
données doivent être recherchées sur le 
support magnétique. 


Mais il faut savoir que, toujours pour 
limiter les accès au disque, beaucoup de 
systèmes d’exploitation n’écrivent pas 
immédiatement les données lorsqu'un 
ordre d’écriture est envoyé. Ils placent 
ces informations dans le tampon, et 
remettent l’écriture réelle à plus tard. 
Dans ce cas, un drapeau (flag, en amé- 
ricain) indique si le tampon doit faire 
l’objet d’une écriture. Il est alors néces- 
saire de recopier les informations de ce 
tampon, avant de le détruire pour y pla- 
cer les données à lire. 


Cette opération terminée, il reste à 
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calcul de la 
position des données 
{sous-programme) 


chargement du tampon 
(sous-programme) 


calcul de la 
position en mémoire 
du premier octet 
de l'enregistrement 


transfert du nombre 
d'octets nécessaires 
à partir du tampon 
vers la variable à lire 


MAIS £. 
QU'EST CE QU'IL 
T'ARRIVE 
MON GRAND? 


déterminer le nombre de secteurs à lire. 
Ce nombre a déjà été calculé par le 
système à partir de la longueur et de la 
position des données sur le disque. Mais 
peu de systèmes adaptent la longueur du 
tampon de lecture/écriture aux données 
auxquelles on veut accéder. 


Les systèmes d’exploitation moins 
performants (ceux que l’on trouve sur 
beaucoup d’ordinateurs familiaux) 
gèrent des tampons de longueur fixe. 
Sur les plus gros ordinateurs, il est pos- 
sible de fixer, pour chaque fichier, un 
facteur de blocage qui caractérise la 
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dimension du tampon. Il dépend de 
deux paramètres. Le premier concerne 
le nombre d’enregistrements que le tam- 
pon est susceptible de mémoriser, le 
second est la longueur d’un enregistre- 
ment. Le facteur de blocage s'exprime 
donc en Koctets. Ainsi, un mini-ordina- 
teur tel que le HP-3000 permet d’avoir 
des facteurs de blocage jusqu’à 28 Koc- 
tets, avec une limite de 255 enregistre- 
ments. 


Une lecture 


à tête reposée 


Lorsque le nombre de secteurs à lire 
— éventuellement modifié par le facteur 
de blocage — a été déterminé, les don- 
nées peuvent être recherchées sur le dis- 
que ou la bande magnétique. Cette opé- 


L'INFORMATION QUE. 
TU M'AS DEMANDÉE $E 
TROUVE À CHEVAL SURDEUX 
SÉCTEURS.6A LONGUEUR 
EST SUPÉRIEURE. À UN OCTET, 
A PAT PLUS D'UNE DEMI 
EURE QUE JE CHERCHE 
CE 25GrM OCTET !// 
TU PIGES 4, 


ration est du ressort du contrôleur de 
disque qui se charge aussi de lancer la 
rotation du disque, de demander le posi- 
tionnement de la tête de lecture et de 
transférer les informations dans le 
tampon. 


Il est alors nécessaire de calculer à 
partir de quelle adresse les données du 
tampon doivent être transférées dans la 
variable à lire : (adresse de transfert) — 
(adresse du début du tampon) +(n° de 
l’octet dans le secteur). Un nombre 
d’octets égal à la longueur de la varia- 
ble à lire est donc déplacé de cette 


adresse de transfert à l’adresse de la 
variable. Et la variable est enfin lue. 


L’écriture d’une information néces- 
site quelques opérations supplémentai- 
res. Elles apparaissent dans l’algorithme 
d’écriture (voir ci-dessous). Il faut tou- 
tefois remarquer qu’une écriture est 
presque toujours précédée d’une lecture. 
En effet, un enregistrement couvre rare- 
ment une longueur exacte de secteurs. 
Les lecteurs de disques ou de bandes 
magnétiques ne permettant que des écri- 
tures complètes de secteurs, si l’on ne 
veut pas détruire les enregistrements voi- 
sins, il est indispensable de commencer 
par lire intégralement les secteurs qui 
seront touchés par la modification. Dès 
que ces secteurs auront été remis à jour, 
ils pourront être réécrits sans danger 
pour le reste du fichier. 


Écriture d'un 
enregistrement 


calcul de la 
position des données 
(sous-programme) 


les secteurs à écrire 
sont-ils déjà dans le tampon 
du système 


chargement du tampon 
(sous-programme) 


transfert de la variable 
à écrire vers le tampon 


positionnement du drapeau 
indiquant que le tampon 

doit être récrit sur le disque 

ou la bande magnétique 


Concevoir un accès direct est donc 
plus complexe qu’on le croit souvent. 
En fait, cela ne représente qu’une toute 
petite partie de ce qu’est capable d’ef- 
fectuer un système d’exploitation. On 
peut donc imaginer la difficulté qu’il y 
a à écrire un système d’exploitation, sur- 
tout lorsque les programmes du système 
atteignent la taille respectable de plu- 
sieurs méga-octets. Inutile d’ajouter que 
l’on y découvre beaucoup de bogues.…. 


Thierry 
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CHERCHER LA CHAÎNE 


‘interpréteur Basic contenu dans la mémoire 
morte du Canon X-07 est une mine d’or pour 
le programmeur en langage-machine qui connaît 
les bonnes adresses. II va nous permettre ici de 
créer une routine capable de rechercher une suite 
de caractères dans un programme et d'afficher la 


ligne où elle se trouve. 


Lorsque l’on écrit un programme 

en langage-machine, il est plus 
astucieux d’utiliser les routines existan- 
tes que de les réinventer. Cela permet à 
la fois de réduire le nombre d’instruc- 
tions (un gain de place souvent très 
appréciable), et de faciliter les dévelop- 
pements en évitant l’écriture et le test de 
routines complexes. 


Pour illustrer ces principes, voici un 
petit utilitaire qui apporte une fonction 


JOUR... 


de la _ 
mémoire - * 


JE... JE CHERE 
UNE CHAÎNE ET... 


æ 


M. ‘ 
# 


rencontrée couramment sur les éditeurs 
de gros ordinateurs : la localisation de 
caractères. Son but consiste à rechercher 
une suite de caractères dans un pro- 
gramme et à afficher la ligne où elle se 
trouve. 


Pour l’implanter, il suffit de rentrer 
le programme Basic (Recherche) qui met 
en place la routine en langage-machine. 
La seule difficulté est de déterminer 
l’adresse de début d’implantation : elle 


| EERTE! UN 
AISEERTE LC 


S'ESTÉVADÉ ! 


PR 
à Mgr. 


gg RL FeAPaR. 


est fonction de la capacité mémoire dis- 
ponible et de la zone réservée aux 
fichiers. Il est donc préférable de pro- 
téger le programme par un CLEAR 
50,AD — 1. Par exemple, pour une capa- 
cité de 8 Ko avec environ 4 Ko de 
fichiers, il faudra faire CLEAR 50,3799 
(voir Le plan de la mémoire, ci- 
dessous). 


Pour ceux qui disposent de beaucoup 
de place, implantation après les varia- 
bles et avant la fin de pile (attention, la 
pile va en décroissant) est possible aussi, 
et ne nécessite pas de CLEAR. Le pro- 
gramme est totalement relogeable. 


Une fois introduit et les adresses 
modifiées, taper RUN, l'utilitaire 
Recherche est prêt à l'emploi. 


Mode de 


recherche 


Sa syntaxe d'utilisation est assez sim- 
ple. Il suffit de taper : 
EXEC AD : [NL] @ [’’] SUITE @ 
puis RETURN. 


Il faut alors le texte d’un programme 
Basic. Les crochets indiquent les opé- 
randes facultatifs. 

EXEC AD : exécution du programme 
en langage-machine situé à l’adresse 
d'implantation. Les deux-points sont 
obligatoires. 

[NE] : numéro de ligne facultatif. S’il 
est absent, la recherche commence au 
début du programme, sinon à partir du 


l Système l Programme l LM L Fichiers | 
0 1362 n 4000 8192 


AD = 3800 


Pour une capacité mémoire de 8 Ko dont environ 4 de fichiers, il faut prévoir un CLEAR 50,3799. 


| 
| 
| 
| 
| 


10 CLS:AD=XXXX | 
20 CLEARSO,AD- 1 
30 READA:IFA < OTHENPRINT“PRET”:ENDELSEPOKEAD.A:AD = AD + 1:GOTO30 | 
40 DATA225,225,225,225,225,225,225,205,150,245,35, 126,254,34/32,1,35,229,221 ,225, | 
50 DATA205,13,243,197,225,43,35,229,253,225,126,35,182,40,47,35.78,35,70,221,229 | 
60 DATA209,35,26,190,32,3,19,24,248,254,64,40,17.126,183,40,224,27,26.254,34 40 | 
70 DATA231,254,64,40,227,43,24,224,225,197,253,229,253,33,0,64,195.139 254,221 | 

DATA229.225.205,102,246,201, — 1 | 


La routine 
Recherche en Basic 
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TE Z 


A la ligne 10, remplacer XXXX par l’adresse à définir. 
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La routine Recherche désassemblée 


Les registres 


hl : pointeur sur la ligne des programmes 
de : pointeur sur la suite 

IX : pointeur sur le début de la suite 
IY : adresse de la ligne en cours 

bc : numéro de la ligne en cours 


l 


Adresse Instruction on Commentaire 
f Î 

12000 | POP'hl 225 

12001 | POP hl 225 

12002 | POP hl 225 

12003 | POP hl 225 

12004 | POP hl 225 

12005 | POP hl 225 

12006 | POP hl 225 

12007 | CALL 62870 205 150 245 | Recherche numéro de ligne — de 

12010 | INCHNI 35 

12011 | LDa(hl) 126 

12012 | CP 34 254 34 Cas du @”’ 

12014 | JR NZ 1 12017 | 321 

12016 | INCHhI 35 

12017 | PUSHhI 229 Début de chaîne 

12018 | POP IX 221 225 

12020 | CALL 62221 205 13 243 Recherche adresse ligne — bc 

12023 | PUSHbc 197 

12024 | POP hl 225 

12025 | DEChI 43 

12026 | INChI 35 

12027 | PUSHhlI 229 

12028 | POP IY 253 225 Adresse ligne — IY 

12030 | LDa(hl) 126 

12031 | INChI 35 

12032 | OR (hl) 182 

12033 | JR Z 47 12082 | 40 47 Test fin de programme 

12035 | INChI 35 

12036 | LDc(hl) 78 Numéro de ligne — bc 

12037 | INCHNI 35 

12038 | LDb(hl) 70 

12039 | PUSHIX 221 229 

12041 | POP de 209 

12042 | INChI 35 Test égalité chaîne/caractère programme 

12043 | LDa(de) 26 

12044 | CP (hl) 190 

12045 | JR NZ 3 12050 | 323 

12047 | INCde 19 

12048 | JR 248 12042 24 248 Si égalité 

12050 | CP 64 254 64 Si différence, test fin de chaîne 

12052 | JR Z 17 12071 40 17 

12054 | LDa(hl) 126 

12055 | OR a 183 

12056 | JR Z 224 12026 | 40 224 Fin ligne 

12058 | DECde 27 

12059 | LDa(de) 26 Traitement si début de chaîne 

12060 | CP 34 254 34 

12062 | JR Z 231 12039 | 40 231 

12064 | CP 64 254 64 

12066 | JR Z 227 12039 | 40 227 

12068 | DEChI 43 

12069 | JR 224 12039 24 224 

12071 | POP hl 225 Chaîne trouvée 

12072 | PUSHbc 197 

12073 | PUSHIY 253 229 

12075 | LDIY 16384 253 33 0 64 

12079 | JP 65163 195 139 254 | Saut routine LIST 

12082 | PUSHIX 221 229 Chaîne non trouvée 

12084 | POP hl 225 

12085 | CALL 63078 205 102 246 | Détermination fin de ligne 

12088 | RET 201 
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numéro de ligne supérieur ou égal à 
celui indiqué. 

@: indique le début de la suite 
obligatoire. 

[1 : guillemets facultatifs qui permet- 
tent de différencier les caractères des 
fonctions. 

SUITE : suite de caractères et/ou de 
fonctions, instructions, etc. 

@ : indique la fin de la suite obligatoire. 


Si la suite existe, la ligne déterminée 
s’affiche et reste en position comme 
avec LIST @. Les modifications sont 
possibles après BREAK (une fois), s’il 
n’y a pas d’occurrence retour du cur- 
seur. Pour mieux comprendre, voici 
quelques exemples : 

EXEC 8000 : @ A -B @ recherche la 
suite ‘‘A(code 210)B’’ depuis le début 
du programme. 

EXEC 8000 : 1002@ A —B @ recher- 
che la chaîne ‘‘A(code 45)B’”° à partir de 
la ligne 1002. 

EXEC 8000 : @ HELENE @ recherche 
la suite ‘‘HE(code LEN)E”’. 

EXEC 8000 : @ ‘‘HELENE @ recher- 
che la chaîne “HELENE”. 


La liste désassemblée commence ici à 
l’adresse 12000. Les sept premières 
lignes contiennent POP h] pour retrou- 
ver l’adresse des deux-points qui suivent 
EXEC et pour mettre à jour la pile. 
EXEC protège les registres par 
empilage. 


En 62870 se trouve une routine qui 
transforme une suite de chiffres ASCII 
en un nombre binaire sur deux octets 
(utilisation habituelle dans GOTO, 
GOSUB,...) ; hi pointe un caractère 
avant les chiffres et le résultat est stocké 
dans de (voir à l’adresse 12007 de la rou- 
tine désassemblée). 


En 62221 se situe une routine qui 
recherche l’adresse réelle mise dans bc 
de la ligne dont le numéro est contenu 
dans de (voir à l’adresse 12020). En 
65163, c’est la partie de la routine LIST. 
Il faut alors mettre en pile le numéro de 
la ligne finale puis l’adresse de la pre- 
mière ligne à lister. De plus, si IY con- 
tient 16384, on obtient un effet identi- 
que à LIST @ (voir aux adresses 12075 
et 12079). 


Enfin, en 63078 (adresse 12085), on 
trouve la routine recherchant la fin 
d'instruction (:) ou la fin de ligne (0) à 
partir de hl. . 

. Laurent GRAS 
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LE BASIC 


DU LANSAY 64 


LORS que d’un côté, 
on cherche 
a uniformiser 
le Basic, de l’autre, 
certains constructeurs 
laissent libre cours 
à leur imagination 
et proposent des 
Basic presque fous 


tant ils sont riches. 
C'est le cas de celui 


de l’Enterprise commercialisé 
en France sous le nom de Lansay 64, 
qui se trouve être, en outre, un Basic structuré. 


La version de base de l’Enterprise 

64 (1) tient dans un boîtier à peine 
plus gros que le clavier. Quelques tou- 
ches de couleur et une poignée de jeu 
l’égaient. Le côté droit reçoit l’ensemble 
d'édition l'insertion, l’effacement 
de caractères à gauche (ERASE) ou à 
droite (DEL) du curseur, son déplace- 
ment dans toutes les directions (grâce à 
la poignée) sur deux pages d’écran. 


Une ouverture à gauche accueille les 
cartouches préprogrammées. Le Basic 
réside justement dans une de ces cartou- 
ches. À la mise en route, l’écran 
annonce que sur les 64 Ko de mémoire 


(1) Au moment où nous avons testé ce matériel 
ses importateurs n'avaient pas encore décidé de 
le rebaptiser Lansay 64. 
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vive, il en reste un peu plus de 49 à la 
disposition de l’utilisateur. 

Une partition de la mémoire en dif- 
férentes zones de programme est possi- 
ble, comme sur certains ordinateurs de 
poche. Les numéros de ligne des pro- 
grammes ne peuvent pas dépasser 9999, 
La numérotation automatique est dis- 
ponible, avec une syntaxe originale : 
AUTO AT x STEP y numérote auto- 
matiquement à partir de la ligne x avec 
un pas de y. La renumérotation opère 
de la même façon, avec RENUMBER, 
et sur des procédures (par exemple, sur 
la procédure TEST, RENUMBER 
TEST AT 1000 STEP 5). 


Le Basic de l’Enterprise fait preuve 
de rigueur. Ainsi, lors de l’écriture d’un 
programme, on peut omettre l’instruc- 


tion LET, mais de toutes les façons l’in- 
terpréteur l’ajoute automatiquement 
après la validation de la ligne. 


Les identificateurs de variables jouis- 
sent de toute la liberté octroyée par 31 
caractères significatifs. Mais il n’existe 
pas de spécificateur de type numérique. 
Les calculs utilisent des nombres qui 
vont jusqu’à 1E62 avec une précision de 
9 chiffres. Entre autres originalités, l’in- 
fini est présent dans ce Basic, sous le 
nom de INF. Il correspond à la valeur 
9.999999999 X 10%. On trouve aussi 
EPS(X), la plus petite quantité qui fait 
changer la valeur de X, Epsilon en ter- 
mes mathématiques. 


Les chaînes de caractères acceptent 
jusqu’à 254 caractères. Et les fonctions 
du Basic qui les traitent sont originales : 
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Liste des mots clés du 
Basic du Lansay 64 


passage de minuscules en majuscules et 
inverse, suppression des espaces à gau- 
che ou à droite de la chaîne, position 
d’une chaîne dans une autre. Ici, les 
traitements classiques sont effectués 
directement, sans instructions. Par 
exemple, pour prendre les trois premiers 
caractères de B$ et les mettre dans AS, 
avec ce Basic, on écrira A$ = B$ (1:3) ; 
avec un Basic plus classique on aurait 
écrit A$ = LEFTS$ (B$,3), ou encore 
A$ = MIDS$ (B$,1,3). 


En maths, 


| mention très bien 


Le jeu des fonctions mathématiques 
satisfera les plus exigeants. La trigono- 
métrie dispose de toutes les fonctions 
habituelles (sinus, cosinus, tangente et 
les inverses), mais aussi de fonctions ori- 
ginales comme la sécante, la cosécante, 
sinus et cosinus hyperboliques, etc. Les 
calculs sont effectués au choix en degrés 
ou en radians, et la conversion est tou- 
jours possible. Il faut encore noter une 
fonction originale, ANGLE, qui donne 
les valeurs d’angles dans un système en 
coordonnées cartésiennes. 


Les logarithmes existent sous trois 
formes : logarithme népérien, loga- 
rithme décimal et logarithme en base 2. 
Selon la partie que l’on veut extraire 
d’un nombre, on dispose de plusieurs 
fonctions : INT(X) retient la partie 
entière de X, IP(X) retient le nombre X 
sans sa partie fractionnaire, CEIL(X) 
retient le plus petit entier immédiate- 
ment supérieur à X, FP(X) retient la 
partie fractionnaire de X. La liste est 
encore longue : ce Basic compte plus de 
40 fonctions mathématiques. 


Quant aux autres instructions, elles 
sont aussi très originales. Ce Basic pénè- 
tre ouvertement dans le domaine des 
structures répétitives conditionnelles : il 
est structuré. FOR...NEXT existe, assu- 

rément, mais avec une petite originalité 
° que l’on retrouvera avec les autres bou- 
cles. Dès l’introduction d’une structure 
répétitive, la liste présente automatique- 
ment une indentation de la zone com- 
prise entre les deux bornes, c’est-à-dire 
que l’intérieur de la boucle est décalé pour 
favoriser son repérage dans la liste. Inu- 
tile de recourir à une boucle vide pour 
les temporisations, il existe un WAIT 
DELAY. 
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ABS 

ACOS 
ALLOCATE 
AND 

ANGLE 

ASK 

ASIN 

ATN 
ATTRIBUTES 
AUTO 


BAND 
BEAM 
BIAS 
BIN 
BLACK 
BLUE 
BOR 
BORDER 


CAEL 
CAPTURE 


CAUSE EXCEPTION 


CEIL 
CHAIN 
CHARACTER 
CHRS 
CLEAR 
CLOSE 
CODE 
COLOUR 
CONTINUE 
COPY 

COS 

COSH 

COT 

CSC 

CYAN 


DATA 
DATE/DATES 


DISPLAY 
DO LOOP 


END 
ENVELOPE 
EPS 

EXIT 
EXLINE 
EXP 
EXSTRINGS 
EXT 
EXTYPE 
FLUSH 
FOR NEXT 
FP 

FREE 

GET 
GOSUB 
GOTO 
GRAPHICS 
GREEN 


HANDLER 
HEXS 


IF MISSING 
IF THEN ELSE 
IMAGE 


INKEYS 

INPUT 

INPUT PROMPT 
INT 

INTERRUPT 

IP 


LBOUND 
LCASES 
LEN 

LET 

LINE INPUT 
LINE MODE 
LINE STYLE 
LIST 

LLIST 
LOAD 


LOG 
LOG2 
LOG10 
LOOK 
LPRINT 
LTRIM$ 


MAGENTA 
MAX 
MAXLEN 
MERGE 
MIN 

MOD 


NEW 
NUÜMERIC 


ON GOSUB 
ON GOTO 
OPEN 
OPTION 
OR 

ORD 


PALETTE 


RANDOMIZE 
READ 

RED 
REDIRECT 
RELEASE 
REM 
REMarque 
RENUMBER 
RESTORE 
RETRY 

RGB 

RND 
ROUND 
RTRIMS 


RUN 


SAVE 
SCROLL 
SEC 
SELECT 
SELECT CASE 
SET 

SGN 

SIN 

SINH 
SIZE 
SOUND 
SPEAKER 
SPEEK 
SPOKE 
SQR 
START 
STEP 
STOP 
STR$ 
STRING 


TAB 

TAN 

TANH 

TEXT 
TIME/TIMES 
TIMER 
TOGGLE 
TRACE ON/OFF 
TRUNCATE 
TYPE 


UBOUND 
UCASES 
UNTIL 
USR 


VAL 
VERIFY 
VIDEO 


WAIT DELAY 
WHEN 
WHILE 
WHITE 
WORDS 


YELLOW 


Ce Basic étant structuré, d’autres 
types de boucles sont présents. Le choix 
est tellement large que l’on s’y perd au 
début. DO WHILE relancera la boucle 
fermée par LOOP tant que la ou les 
conditions ne seront pas remplies, DO 
UNTIL agira de même jusqu’à la réali- 
sation de la condition. Nuance subtile ? 
Simple pourtant. Si j'écris la boucle : 
DO WHILE A <3 

A=A+I 
LOOP 
la sortie se fera lorsque A aura atteint 
la valeur 3. 


Tandis que le même résultat avec 
UNTIL sera obtenu par : 
DO UNTIL A>2 ou 
A = 3. 


Mais ce n’est pas tout. La condition 


DO UNTIL 


peut aussi s’écrire sur la deuxième borne 
de la boucle, après le LOOP. Ainsi : 
DO 

A =A+I 
LOOP UNTIL A>2 
ou 
LOOP WHILE A <3 


Pour sortir des boucles en cours de 
route, EXIT DO ou EXIT FOR sont 
prévus. Inutile donc de se préoccuper de 
mettre la variable à la valeur limite. 


Les instructions de tests sont de plu- 
sieurs formes, elles aussi. On rencontre 
IF et ELSE, mais ils s’accompagnent de 
END IF qui clôt une série de tests rela- 
tifs entre eux et disposés dans des lignes 
successives. Il faudra manœuvrer avec 
prudence. Les tests à plus de deux 
sorties possibles obligent, en Basic tra- 
ditionnel, à recourir à une batterie de 
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questions successives. Avec SELECT 
CASE, le choix est donné entre les pos- 
Sibilités multiples. 


Le Basic de l’Enterprise semble déjà 
ressembler au Pascal, au moins dans sa 
philosophie. Et ce n’est pas terminé : il 
reste encore à examiner deux structures 
pascaliennes. La première apparaît dans 
la manière d’employer les variables et 
surtout les tableaux. Leur prédéclara- 
tion stipule le type du contenu, numé- 
rique ou chaîne. Avec les chaînes, on 
précise également leur longueur maxi- 
mum autorisée (132 caractères par 
défaut). Autre point de similitude avec 
le Pascal : les procédures. Leurs bornes 
sont précisées par DEF et END DEF, 
et l’appel est réalisé par CALL. Les 
variables locales n’ont pas besoin d’être 
mentionnées au début de la procédure. 
Si elles n’ont pas été utilisées dans le 
programme principal, elles sont auto- 
matiquement reconnues comme locales. 
Il existe même des variables factices 
(dummy) qui rendent les procédures 
parfaitement transparentes pour le pas- 
sage des arguments. 


Le traitement des erreurs s’opère éga- 
lement sous une forme de procédure 
définie entre WHEN EXCEPTION et 
END WHEN. Seule différence, l’appel 
ne se fait pas par un CALL,, maïs direc- 
tement par la cause de l’erreur. 


Si ce Basic présente des similitudes 
pascaliennes, la gestion du graphisme 
s’inspire plutôt de Logo. On y rencon- 
tre une instruction à tout faire : PLOT. 
Elle permet de tracer des droites, des 
lignes brisées en tournant d’un angle 


La DÉRatsartion 
INFORMATIQUE …. 
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précisé par ANGLE. Elle dessine éga- 
lement des cercles ou ellipses (PLOT 
ELLIPSE) et sait colorier des figures 
(PLOT PAINT). 


Le son réagit à un classique SOUND 
opérant sur trois canaux avec sortie sté- 
réo et modulation d’enveloppe. 


Ouvert aux 


communications 


Dernier point intéressant de l’Enter- 
prise, et non des moindres, sa faculté 
d’opérer en réseau. Les échanges d’infor- 
mations sont régis directement depuis le 
Basic, grâce à SET NET NUMBER 
suivi d’un numéro de 0 à 32, pour ouvrir 
les canaux de communication. Ensuite, 
les instructions SAVE et LOAD servent 
à envoyer et à recevoir des programmes 
tandis que le dialogue interactif se fait 
avec les instructions PRINT et LINE 
INPUT après ouverture du canal par 
OPEN. 


Le Basic de l’Enterprise sort agréable- 
ment des sentiers battus. Mais ses ori- 
ginalités ne présentent pas que des avan- 
tages. D'abord, l’interpréteur est très 
lent. II faut préciser que le mode de 
codage décimal codé binaire (DCB) des 
variables défavorise l’Enterprise dans 
des courses contre la montre. En effet, 
une boucle vide FOR...NEXT de 1 à 
10000 tourne pendant 83 secondes (ce 


Fiche technique 
du Lansay 64 

Constructeur : Enterprise (Grande- 
Bretagne) 
Importateur exclusif : Lansay 
Prix public : 2990 FF 
Processeur : Z 80 À 
Mémoire vive : 64 Ko dont 49,4 Ko 
disponibles à l'utilisateur 
Langage : 15 Basic sur cartouche de 
mémoire morte 
Variables numériques : jusqu'à 1E62 et 
sans spécification entre variables entières 
ou décimales 
Précision : 9 chiffres 
Nombre de mots clés du Basic : 188 


qui est très long, par rapport aux autres 
Basic), alors que la même boucle vide 
de O0 à 9999 ne met plus que 21 secon- 
des. Et ces 21 secondes représentent 
encore un score médiocre par rapport 
à d’autres Basic. 


Un autre inconvénient de l’IS Basic 
(c’est le nom de ce Basic) est son abord 
rébarbatif, il a trop oublié les facilités 
du modèle standard. Résultat : les pro- 
grammeurs en IS Basic écriront des 
œuvres très belles, certes, mais inexploi- 
tables sur d’autres machines et très dif- 
ficiles à traduire. 


On retrouve là encore un problème 
qui n’est pas près d’être résolu : unifor- 
mité ou originalité ? 


Xavier de LA TULLAYE 
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PETIT i 


AYEC OÙ SANS 


COMPLEXE 


L ‘évaluation d'expressions complexes assistée 
par ordinateur fait ses premiers pas sur un 
PC-1500. Si vous avez un problème de complexes, 
le programme « Œdipe » l'interprétera et nul doute 

qu'il saura bien vous proposer une solution... 


Savez-vous que i?= — 1 ou encore 
V—T=i? Voici certainement de 
quoi donner des complexes au plus réel 
des nombres ! Un beau soir, un mathé- 
maticien navré de ne pas trouver de 
solution à l'équation X?+1=0 décida 


AANRRNR TR SES 


HANNNRE 


1741 


NN IN S 
ALU 


LELLU 


ee 
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d'inventer le nombre i, solution de ce 
mesquin petit problème. C'était dit, 
i=X tel que V—1=-X..…. Inutile de 
discuter. 

Sans doute était-il loin de soupçon- 
ner la puissance de l’outil qu’il venait 


TA 


Vhaits 


st 


Eee ——— 
où ZA NI] 


de concevoir, ainsi que les nombreux 
problèmes qu’il poserait à des généra- 
tions d’étudiants... Cette partie dite 
imaginaire ‘‘”” qui introduit les nom- 
bres complexes servira aussi à distinguer 
le prograrnme Œdipe. 


Petite devinette : que vaut (i—1)#* 
G+1)? Réponse: —2; il suffit de 
développer normalement le produit et 
de remplacer en fin de calcul l’imagi- 
naire i* par son équivalent — 1. 

Une grosse devinette maintenant, que 
vaut : H(S)=((S?—2xS +i)x(3xS —2))/ 
(eSx(3*xS? + 12+S —5)) ? Réponse : de- 
mandez-le donc à Œdipe ! 


L'interprétation 


des expressions 


Œdipe est conçu comme un sous- 
programme qui interprète une expres- 
sion mathématique complexe introduite 
au clavier. Elle est traitée comme une 
chaîne de caractères et explorée lettre à 
lettre. En ce qui concerne les calculs, un 
organigramme est souvent plus parlant 
qu’un discours, voyez donc celui d’CÆ- 
dipe, page suivante. 


Une pile, en informatique, sert à ran- 
ger provisoirement des données dont on 
ne sait pas encore quoi faire. Par exem- 
ple, si Œdipe doit évaluer 1 — 2, il devra 
mettre en attente le ‘‘1”?, puis prendre 
connaissance de l’opération en lisant le 
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‘—?? et calculer seulement après avoir 
lu le ‘‘2”’. En attendant, ‘‘1”” et ‘‘ —”? 
ont été mis de côté en pile, la valeur un 
dans la pile des nombres et le signe 
‘7, dans celle des opérations. 


Il faut savoir aussi que certaines opé- 
rations sont prioritaires sur les autres. 
Par exemple, 1 +2+3 vaut 7 car la mul- 
tiplication l’emporte toujours sur l’ad- 
dition. L’interpréteur devra donc empi- 
ler successivement les lettres 1, +, 2, * 
et 3 avant de calculer 2+3 et d’y ajouter 1. 


En fait, Œdipe reconnaît les opéra- 
tions suivantes : 
+(A+i*xB) prend l'identité, 
—(A+ixB) prend l’opposé, 
*(A +i*B) prend le conjugué, 
e(A +ixB) prend l’exponentielle com- 
plexe, 


(A +i*xB)+(C+ixD) calcule la somme, 
(A+ixB)—-(C+i*xD) calcule la diffé- 
rence, 

(A +ixB)*(C +i*D) calcule le produit, 
(A +ixB)}/(C +ixD) calcule la division. 


Œdipe interprète la chaîne alphabé- 
tique contenue dans B$(0) et place les 
résultats (partie réelle et partie imagi- 


306 


352 
prendre in PV le pre- retenir qu'on 
mier code de 5B${2) a vu i (IP) 
324 attend-t-on un 
chiffre ? 


variable? |non 


346 


328 


334-336 


a-t-on une 
opération diadique ? 


a-t-on une “}" ? 


exécuter les opérations 
en pile jusqu'à "{" 
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Initialiser les pointeurs de 
pile et les flags d'affectation 


mettre 1 
en AE 


naire) dans A3 et A4. Œdipe n’est 
qu’un sous-programme, ce qui permet 
de le réutiliser dans d’autres program- 
mes à la seule condition que ces derniers 
respectent la structure générale de celui 
qui est donné ci-contre en exemple. 


L'imaginaire 


sur papier 


Pour lancer l’application, faire DEF 
A. Un point d'interrogation apparaît, 
c’est ainsi qu’ŒÆdipe réclame une 
expression à interpréter. On la tape alors 
au clavier, puis on presse sur ENTER. 
En fait, le mode opératoire d’Œdipe est 
identique à celui de l'ordinateur 
lorsqu’on effectue au clavier des calculs 
sur des nombres réels (j'allais écrire 
‘‘normaux’’). Pour préciser la partie 
imaginaire i, en minuscule dans l’équa- 
tion, il convient de presser SHIFT I. 


Si l'imprimante est connectée, les éta- 


360 
mettre l'opérat® 


en pile avec sa 
priorite 


exécuter les 
opérations 
en pile 


affecter s'il 
le faut (ER. El) 


exécuter les 


opérations de 
priorité > OÙ = 


Programme d’utilisation d'Œdipe 
Prograrnme pour PC-1500 

Auteur Frédéric Blondiau 

Copyright LIST et l’auteur 


19: "A"CALL 53393: 
DIM B$(2)*x80 
12:0N ERROR GOTO 
A: INPUT B$(@): 
ON ERROR GOTO 
16: LPRINT B$(@ 
):WAIT 8:GOT0 
A 
14:WAIT :PRINT 
“: GOTO 12 
16: GOSUB "OEDIPE" 
18: "C'PRINT A3, A4 
: ON ERROR GOTO 
12:LPRINT "Re" 
8 "EM's LE <2: 
LPRINT A3, A4: 
LPRINT : GOTO 8 
28: "U'"AI=TCA3XA3+ 
A4kA4):Q2=0: IF 
AI1<CDALET A2= 
ACS (A3/ALDX 
SGN C(A42=8)-, 
5) 
22:PRINT A1, 42:O9N 
ERROR GOTO 12: 
LPRINT "Md', "A 
r'iLF —-2: 
LPRINT A!, 92: 
LPRINT : GOTQO 8 
DEF A : active Œdipe 
ENTER : désactive/réactive 
DEF V : module et argument 
DEF C : retour au mode rectangulaire 


ON 


pes du calcul et les résultats sont sauve- 
gardés sur papier, sinon l’écran affiche 
à sa gauche la partie réelle et à droite 
l’imaginaire. Enfin, le PC-1500 admet 
pour ses calculs les abréviations telles 
que 3E8 à la place de 3*10°8. De même, 
Œdipe admet les abréviations portant 
sur i ; ainsi, on pourra écrire ‘‘i45”’ en 
lieu et place de ix4S à condition que ‘‘i”? 
précède toujours le nombre (iE4 est 
incorrect, taper : ilE4 ou ix1E4). 


En cas d’erreur d’écriture d’une équa- 
tion, Œdipe affiche un point d’interro- 
gation sur la lettre fautive dans l’expres- 
sion mais il faudra la retaper toute 
entière corrigée. 


Evidemment, certains calculs plus 
complexes demandent une certaine pré- 
paration. Ainsi 1/(V3+i)nécessite l’em- 
ploi d’une variable intermédiaire du 
Basic dans laquelle on rangera V3, par 
exemple C = V2. Ensuite, il suffira de 
demander à Œdipe d’interpréter 
1/(Cxi) ou 1/iC pour abréger. 


On pourra aussi utiliser toutes les 
variables À à Z du Basic pour stocker 
des résultats. Ainsi, on conservera la 
partie réelle en tapant : À = nombre ou 
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SE 


Œdipe | 


Programme pour PC-1500 


Auteur Frédéric Blondiau 


Copyright LIST et l'auteur 


380 


302: 


386: 


348: 


319: 


312: 


314: 


316: 
318: 


328: 
322: 
324: 


326: 


328: 


338: 


332% 
334: 
336: 


338: 


340: 


347: 


“OEDIPE"ON 
FRROR GOTO 322 
: DIN PCI; 16) 
ON ERROR GOTA 
416 

PP<;: PO=1:ER=2 
:FI<A:01=1:2$- 


IF MID$ CB$(2) 
; 2, 12="2="GOSUB 
332:G07T0 316 
Q1=2:1F MIDS$ € 
B$(@),3, 1)="-=" 
GOSUB 392:FI=P 
U: GOTO 318 
AÏ=3:1F MID$ € 
B$(A),4,1)<2"= 
“THEN 328 
GOSUB 390:F1=P 
V, Al=1:GOSUB 3 
92:91=3 

ER=PU 

A1=A1+2: GOSUB 
396 

OA=A 

IP<a 

PU=ASC B$(2): 
IF OATHEN 346 
IF PU<6SOR PU) 
SOTHEN 338 
Q1l=1, A2=@(PU-6 
4): GOSUB 398 
IF MID$ (B$CD) 
3141, 122057 
LET A1:=3:GOSUB 
392:PÇIP=8, PP) 
=G(PU)XSGN C.5 
<1P) 

Q]=AI+] 

GOSUB 336 
PP=PP+1, OA=1: 
GOTO 322 

IF PU<480OR PU) 
57I1F PUC)46 
THEN 346 

EOR 91=1T0 LEN 
B$(A).PU-ASC 
MID$ CB$(A),A1! 
s 1) 

IF PU)>47AND PU 
€SB80R PU=460R 
PU<G69LET A1=A1 
+CPU=69):NEXT 
A! 
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346: 


348: 


359: 
352: 


354: 


356: 
358: 


368: 


362: 


364: 


366 
368 


370: 


372: 


374: 


376 
378 


:Q2=UAL B$(2): 


Exemples 
2=12,22 A 
: Re 12.22 Re (] 
Im 2] Im a 
Ÿ A=45.21-:*x95.25 B 
Re 45,21 Re “29; 29 
Im <55:25 Em (| 
BAPRER AE AjB=(5-:)/(5454:) 
Re () R A.4 
Um 18.54 7° 4 
| Im -@.6 
:B=87.21-1%x25,25 
Re 87,21 8 
Im 225.::29 A.4 
B 
—@.6 


GOSUB 398: GOTO 
334 

F IPLET A2=1; 
GOSUB 398: GOTO 
336 

F PUCDIBSTHEN 
354 

IF OATHEN 9 
P=1:GOSUB 394 
: GOTO 324 

ÎF PU=OTHEN 37 
4 


F OATHEN 362 
PS=<g:1F PUC)43 
IF PUC245SIF PU 
<242]1F PUC>IBI 
LET PS=S:IF PU 
CDA4BTHEN 8 
Q$(PO)=STRS PS 
+CHRS$ PU, PO=PO 
+]: GOSUB 394: 
GOTO 328 
PS=2: IF PU<»43 
IF PU<2>4SLET P 
S=l:1F PU<)42 
IF PUC24/THEN 
368 

IF PODIIF VAL 
Q$(PO-1)<=PS 
GOSUB 378: GOT0 
364 

: GOTO 362 

: [F PUS2D4ITHEN 
A 

IF @$(PO-1)<2" 
SC"GOSUB 378: 
GOTO 378 
PO=P0-- 1: GOSUB 
394:G0OT0Q 322 
{F PO)1GOSUB 3 
278:GOT0 374 

: PPEPP+CPP=9) 
:G43=P(PP-1), A4= 
Pis PP=12% LE P 
ODILET PO=PO-1 
: GOSUB @$ (PO): 


PB CPP-122:063, PCI 
, PP-])=Ad4: 

RE TURN 

IF ERLET @(CER) 
A3 

IF EILET @(CEI) 
A4 

RETURN 

ÎF MID$ (B$(2) 
5A1-1, 12<2";7 
THEN G 

PU=ASC CMID$ « 
B$(8),A1, 1))-6 
4: RETURN 

A1=2 

CH<RIGHI$S CZ2$+ 
LEFT$ CB$(A),A 
1-1), 16), B$(2) 
=MID$ (B$(B),A 
1, 88): RETURN 
PCIP, PP)=<A2, PC 
IP<B, PP)=2: 
RETURN 

488: 9-"A3--03 
482: '@x"A4=-A4 
484: "D+"RETURN 
486: "Pe"A2=EXP A3, 
A3=A2XC0S A4,A 
4-A2XSIN A4: 
RE TURN 
°2-"GOSUB 488 
T2+"PP<PP- 1, 03 
=P(PP-1)+43, Q4 
=PCI, PP-1)+A4: 
RE TURN 
°17"02<A3*xA3+û 
AXA4, A3=-83/A2, 
A4=-A4/A2 
X"PP<PP- 1, A2 
=PCPP-1)KA03-P« 
1, PP-1)KA4, Ad= 
PCPP-1)kA4+P(I 
. PP-1)X03, A3=û 
2: RETURN 

WAIT :BÉEP 1: 
PRINT 2$+"7"4+8B 
$(8):FND 


380; 
382: 
384: 
398: 
392: 
394: 


396: 


398: 


408: 
418: 


412: 


4]j4; 


416: 


Attention : il existe entre les différentes versions de 
PC-1500 des modifications du Basic, notamment en ce 
qui concerne la boucle FOR...NEXT. La liste du pro- 
gramme (Œdipe concerne les PC-1500 A et les dernières 
versions. Si vous possédez un « vieux » PC-1500, trans- 
formez la ligne 340 en : 
340 : FOR AI = 1 TO LEN B$(0) + 1 : etc. 


CAHIXB)/ (121 KkBX5) 
Re 1.969/84314E-02 
Im-5,49819697S8E-82 


X;3 Y= 
Re 1,969/84314F-02 
Im-5,4989196979F-02 
x 

1.960784314E-02 
Ÿ 


—5,4901968/9E-02 


RADIAN 
S=<13 
13 


C=--f68 
-8,306623863 
CS;CXS; C-2KS;C+i2%X 
(3kS;C-2)/CesS; CK(3 
KS3CKS; C+I2XS; C-5) 


) 
Re 7,826423168F-06 
Im 2.316372735E-05 


DEF U 

Md 2.445@17718E-05 

Ar 1.244964678 

calcul complexe (par exemple 


A=ix18.54—45.21), et la partie imagi- 
naire avec ;B=... (ne pas omettre le 
point-virgule : ‘‘:B= 87.21 —-i*25.25°). 

Ainsi, il devient possible d’exprimer 
une expression sophistiquée comme 
(A +ixB}*x(C + i*xD)/(E +ixF) avec seu- 
lement A;BxC;D/E;F sans parenthèses 
et signes inutiles si l’on a évidemment 
affecté correctement les variables A à F. 


La quasi-totalité des calculs com- 
plexes est donc réalisable par Œdipe. Il 
accepte jusqu’à 80 caractères pour l’ex- 
pression, ou 25 opérations et 16 nom- 
bres en piles d’attente. 


Frédéric BLONDIAU 
LIST - PAGE 31 


OUS avons défini dans le numéro 9 
de LIST un mode hybride 
permettant l'exécution en 
mode direct d'instructions qui 
sont pourtant conservées au sein 
d’une procédure nommée a posteriori. 


LANGAGE 


LOGO 


Nous abordons aujourd'hui un autre mode : le pas 
à pas grâce auquel l'exécution d’une procédure 
est visualisée instruction par instruction. 


Contrairement à ce que nous 

avions fait dans les articles précé- 
dents, nous allons d’abord écrire les 
procédures qui nous intéressent, puis les 
analyser et donner ensuite une version 
moins concise, mais peut-être plus sim- 
ple pour les débutants. La principale 
caractéristique des premières procédu- 
res est l’absence de variables globales, 
sauf en ce qui concerne la sauvegarde 
de la procédure originale que l’on doit 
restituer à la fin du pas à pas. 


POUR PASAPAS :P 

COPIEDEF MOT ”. :P :P 

DEFINIS :P (LISTE PREMIER TEXTE :P 
(PH [EC PH [ENTREE DANS]] MOT 
* :P PARAMETRES PREMIER 
TEXTE :P [] CORPS SP TEXTE :P []) 

FIN 


POUR PARAMETRES :L :RES 

SI :L = [] [RETOURNE :RES] 

RETOURNE PARAMETRES SP :L (PH 
:RES [(EC [LA VALEUR DE ]] MOT ’’” 
PREMIER :L EST MOT ”’: PREMIER 
:L7)) 

FIN 

POUR CORPS :L :RES 

SI :L = [RETOURNE :RES] 

RETOURNE CORPS SP :L (PH :RES 
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?TAPE (LISTE PREMIER :L)IDONNE 
A. LISLISTE] PREMIER :L) 
FIN 


Voilà les trois procédures nécessaires 
pour transformer une procédure en pro- 
cédure pas à pas. 


Quel en est le principe ? Il s’agit, 
après avoir sauvé le texte original, de 
réécrire la procédure de manière à ce 
qu’elle s’exécute instruction par instruc- 
tion avec attente du caractère retour 
entre deux étapes de l’exécution. Pre- 
nons un exemple : 

POUR SPI :N 
AV :N DR 90 
SPI :N + 10 

FIN 


va devenir : 

POUR SPI :N 

EC [ENTREE DANS SPI] 

(EC [LA VALEUR DE] "NN [EST] :N) 
EC [AV :N DR 90] 

DONNE ’’A. LISLISTE 

AV :N DR 90 

EC [SPI:N + 10] 


DONNE ’’A. LISLISTE 
SPI :N + 10 
FIN 


Et notre procédure nouvelle manière 


s’exécutera de la façon suivante : 
SPI 10 

ENTREE DANS SPI 

LA VALEUR DE N EST 10 

AV :N DR 90 


(Appui sur retour et exécution de 
l'instruction.) 
SPI :N + 10 


(Appui sur retour et exécution de 
l'instruction.) 
ENTREE DANS SPI 
LA VALEUR DE N EST 20 
AV :N DR 90 


(Appui sur retour et exécution de 
l'instruction.) Etc. 


Attention 


aux faux pas 


Le mode pas à pas est donc très « mé- 
morivore ». Non seulement il conserve 
la procédure originale mais en crée une 
nouvelle qui compte trois fois plus 
d’instructions. Ainsi, chaque instruction 
devient : 

EC finstruction] 

DONNE ’’A. LISLISTE qui attend un 
caractère retour 

instruction 


Pour mettre fin au pas à pas, nous 
écrirons : 
POUR FINPASAPAS :P 


COPIEDEF :P MOT ”. :P 
EN MOT ”. :0O 
FIN 


Attention aux étourderies : si une 
procédure a déjà été convertie et qu’elle 
est, par inadvertance, transformée une 
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le 


e 


le 
e 


seconde fois en mode pas à pas, elle ris- 
que fort de consommer beaucoup de 
mémoire. Mais il y a pire : vous allez 
exécuter un pas.à pas du pas à pas, et 
surtout vous aurez perdu l'original qui 
est maintenant le pas à pas du véritable 
original. Vous aurez beaucoup de mal 
à retrouver votre première version. 
Deuxième piège : lorsqu'une procé- 
dure est en mode pas à pas, elle se pré- 
sente sous la forme d’une liste. Si vous 
l’éditez, il faut à la fois modifier le véri- 
table corps de la procédure et les com- 
mentaires. Or cela devient pratiquement 
impossible si vous ajoutez une instruc- 
tion. Il faut donc penser à revenir à 
l'original avant de l’éditer, puis éven- 
tuellement remettre ensuite la procédure 
en pas à pas. 
PASAPAS "SPI 
SPI 20 


ED ”SPI 


PASAPAS ”’SPI 


Bien sûr, ce pas à pas n’est pas très 
souple, mais il est créé pour les versions 
de Logo qui en sont dépourvues. Mal- 
heureusement, il reste certaines versions 
qui ne possèdent pas le pas à pas et qui 
n’ont pas non plus la primitive DEFI- 
NIS. C’est entre autres le cas des ver- 
sions pour matériels Thomson. Donc 
aucun secours lorsqu'il s’agit de débo- 
guer une procédure. 


Examinons maintenant les procédu- 
res de pas à pas. En Logo, la primitive 
DEFINIS permet de définir une procé- 
dure sous forme de liste de listes. La 
première liste est obligatoirement celle 
des paramètres. Chaque instruction du 
corps de la procédure est une liste. Ainsi 
SPI pourrait se définir par : 

DONNE ”’SPI [[NJAV :N DR 90]J[SPI :N 

+ 10]] 


Dans la liste des paramètres, le carac- 
tère deux-points (:) n’apparaît plus. Les 
mots POUR et FIN non plus. La pri- 
mitive TEXTE permet de transformer 
une procédure écrite avec POUR-FIN 
en une liste. 


. DONNE ”SPI TEXTE :SPI 


Examinons la procédure PASAPAS. 
Tout d’abord, PREMIER TEXTE :P 
représente la liste des paramètres qu’il 
faut conserver comme première liste de 
la nouvelle procédure. 


Le but de la procédure PARAME- 
TRES est de créer pour chaque paramè- 
tre une instruction qui affichera : LA 
VALEUR DE nom du paramètre EST 
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valeur du paramètre, puis de retourner 
l’ensemble des instructions ainsi créées 
à la procédure d’appel (PASAPAS). 

Il en va de même pour le corps de la 
procédure, qui est SAUFPREMIER 
TEXTE :P. La procédure CORPS 
retourne la liste des nouvelles 
instructions. 


Pas touche 


à l'original 


Essayons de réécrire ces procédures 
en passant par deux variables globales. 
La première DEFPROC sera la procé- 
dure écrite sous forme de liste. La 
seconde NOUVPROC sera la liste dans 
laquelle nous accumulerons toutes les 
instructions anciennes et nouvelles. Les 
parenthésages servent à spécifier que les 
primitives PHRASE, LISTE ou ECRIS 
admettent un nombre quelconque d’ar- 
guments. 

POUR PASAPAS :P 

COPIEDEF MOT ‘’.P :P 

DONNE "’DEFPROC TEXTE :P 

DONNE ”’NOUVPROC [] 

DONNE ?’NOUVPROC (PH :NOUV 
PROC [(EC [ENTREE DANS ]] MOT ””” 
B°)) 

PARAMETRES PREMIER :DEFPROC 

CORPS SP :DEFPROC 

DEFINIS :P LISTE PREMIER :DEFPROC 
:NOUVPROC 

FIN 


Ce qui se traduit par : 


ÉAPPREND 
MARCHER 


it EST TOMBÉ 
DE HAUT, LE 
PÈRE LOGO! 


1. Créer une procédure dont le nom est 
celui de la procédure à mettre en pas à 
pas, ce nom étant précédé d’un point de 
manière à ne pas retomber sur une pro- 
cédure existante. Ainsi, SPI devient 
.SPI. Cette copie permettra de restituer 
l'original en fin de pas à pas. 

2. Créer une variable DEFPROC dans 
laquelle sera mémorisée la procédure 
initiale, mais sous forme de liste de 
listes. 

3. Initialiser une variable globale 
NOUVPROC à []. 

4. Ajouter à NOUVPROC la liste cor- 
respondant à l'instruction (EC 
[ENTREE DANS] ‘‘nom de la procé- 
dure). Ce nom est généré par MOT dont 
le premier caractère est le guillemet — 
d’où les doubles guillemets — et le con- 
tenu du mot paramètre P. Il faut ensuite 
générer le caractère parenthèse fermante 
— d’où la suite guillemets-parenthèse 
fermante — avant de refermer la paren- 
thèse ouverte devant PH. Nous retrou- 
verons le même mécanisme dans les pro- 
cédures PARAMETRES et CORPS. 
5. Compléter la variable NOUVPROC 
en appelant deux procédures récursives 
PARAMETRES et CORPS. 

6. Définir la nouvelle procédure en y 
faisant figurer, au début, la liste des 
paramètres. 


Écrivons maintenant PARAME- 
TRES et CORPS en distinguant bien les 
actions. 

POUR PARAMETRES :L 
SI :L = [JISTOP] 
DONNE ’’NOUVPROC (PH :NOUV 

PROC [(EC [LA VALEUR DE }] MOT 
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LANGAGE 


??? PREMIER :A ’’EST MOT ’’: PRE 
MIER :L”)) 

PARAMETRES SP :L 

FIN 


POUR CORPS : L 

SI :L = [JISTOP] 

DONNE ?’NOUVPROC (PH :NOUV 
PROC "’TAPE (LISTE PREMIER :L)) 

DONNE ”’NOUVPROC PH :NOUVPROC 
[DONNE ’”’A. LISLISTE] 

DONNE ’NOUVPROC PH :NOUVPROC 
PREMIER :L 

CORPS SP :L 

FIN 


Quelques remarques : 

1. Dans CORPS, TAPE est utilisé à la 
place de EC qui fait revenir à la ligne. 
Il n’y aura donc pas de saut de ligne 
entre deux instructions exécutées. 

2. DONNE ”’A. LISLISTE sert à atten- 
dre un caractère retour pour continuer. 
La valeur prise par A. n’a pas besoin 


Rappel de la syntaxe Logo 


Logo est un langage procédural. Les 
procédures disponibles à l’initialisation 
sont appelées primitives. Celles que vous 
créez sont nommées procédures. Une 
procédure commence par le mot POUR 
et se termine par FIN. 

En Logo, un nombre est écrit tel quel, 
éventuellement précédé d’un signe. Un 
mot est toujours précédé de guillemets 
(on ne referme pas les guillemets à la fin 
du mot). Une liste est encadrée de cro- 
chets carrés []. 4 

Les noms de variables qui ne sont pas 
liés à leur contenu sont des mots. Enfin, 
le contenu de la variable *’A est :A. 


WOiranG ArADEUS AU TRAVALL... 
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_ LOGO PAS À PAS 


d’être exploitée. On pourrait remplacer 
cette ligne par : SI LISCAR = ”S 
[STOP]. Ainsi, le passage d’une instruc- 
tion à l’autre se fera en tapant sur un 
caractère quelconque, sauf sur S qui 
arrête l’exécution du pas à pas. 


11 y a Logo 


et Logo... 


La principale différence entre la pre- 
mière et la seconde série de procédures 
réside dans le fait que la première n’uti- 
lise pas de variables globales intermé- 
diaires. Les procédures PARAME- 
TRES et CORPS retournent des listes 
dont le nom RES (pour résultat) figure 
dans leur titre. Ces listes, à l’appel, sont 
initialisées à []. Faire figurer le nom du 
résultat dans le titre est une astuce puis- 
sante qui permet à la fois de limiter le 
nombre de variables globales et d’initia- 
liser des variables à l’appel. 


La première version, plus courte, est 
caractéristique de ce que vous obtien- 
drez lorsque vous manipulerez bien 
Logo. La seconde est plus proche des 
langages informatiques classiques et 
sera écrite par un utilisateur ayant pra- 
tiqué ces langages. 


Si vous voulez devenir performant, 
essayez de créer le moins possible de 
variables et évitez au maximum le 
DONNE. 


Signalons pour finir les variantes à 


connaître pour adapter ces procédures 
aux différents Logo : 

e DONNE s'écrit aussi CREE, FIXE, 
RELIE. 

e Le parenthésage peut ne pas exister. 
Il faut alors ajouter des primitives PH 
lorsque le nombre d’arguments est supé- 
rieur à 2. (PH :A :B :C) s'écrit PH PH 
‘A. :B: :C. 

S'il n’y a qu’un argument, il faut 
ajouter la liste vide : (PH :A) devient 
PH :A [], mais (LISTE :A) devient SD 
LISTE :A f]. 

Il convient aussi de se méfier de 
(EC...). On devra décomposer en plu- 
sieurs TAPE suivis d’un ECRIS, mais 
on obtiendra des informations qui ne 
seront pas séparées par des espaces. Il 
faudra donc les réintroduire éventuelle- 
ment. Ainsi, (EC :A :B :C) devient 
TAPE :A TAPE CAR 32 TAPE :B 
TAPE CAR 32 EC :C. 

e SI:L = [] [STOP] s'écrit aussi SI :L 
= [] ALORS STOP ou SI VIDE? :L 
[STOP] 
e LISLISTE peut devenir LISLIGNE 
ou LL. 


Quant aux primitives COPIEDEZF, 
TEXTE, DEFINIS, nous espérons 
qu’elles existent dans votre version, en 
remarquant que TEXTE pour la version 
Commodore 64 signifie MODE TEXTE 
et qu'il se traduit par DEFINITION. 


Un prochain article sera consacré à 
des modifications plus ou moins illici- 
tes de procédures par d’autres. 


Robert DAGUESSE 


COHHENT ça 


ERREUR 
7 YNTI 7” 


K 
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NOUVEAUTÉ 


“UN PASCAL PAS 
COMME LES AUTRES 


IEN que de nombreux langages de programmation 
soient aujourd'hui disponibles 


sur Macintosh, le langage Pascal 
reste privilégié sur cette machine 
dont le système d'exploitation 

a été pensé et développé en Pascal. 
Toute la documentation technique 


fournie par Apple aux 


programmeurs, toutes les routines 
internes de la mémoire sont 
décrites et utilisables en Pascal. 


Le Macintosh est en passe de deve- 

nir une machine à programmer, 
notamment en Pascal, un outil de déve- 
loppement d’applications. Non seule- 
ment il est équipé d’un excellent micro- 
processeur (le très rapide 32 bits 68000 
de Motorola), et de 512 Ko de mémoire 
vive dans sa configuration optimale, 
mais il se dote aussi de langages perfor- 
mants tant pour l’apprentissage que 
pour la réalisation de programmes d’en- 
vergure professionnelle. 


Le Pascal du Macintosh est d’abord 
un Pascal interprété doté d’une grande 
souplesse d'emploi. L'intérêt de l’inter- 
prétation se révèle surtout dans la phase 
d’apprentissage du langage : à mesure 
que l’on écrit le programme, il est con- 
trôlé par l’ordinateur qui signale les fau- 
tes de syntaxe et organise de lui-même 
la mise en page et l’indentation des 
lignes. Comme le Pascal est un langage 
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très strict sur le 
plan de l’écriture, 
ce contrôle évacue N 
instantanément la moi- 
tié de ces erreurs si bêtes : 
la disposition impeccable des lignes du 
programme est encore la meilleure des 
aides au débogage. 


Adieu les 


phases pénibles 


Qui connaît le Pascal traditionnel sait 
que la réalisation d’un programme passe 
au moins par deux pénibles phases : 
l'écriture et la compilation. Sans entrer 
dans le détail, disons que, dans un pre- 
mier temps, on écrivait le texte du pro- 


ET 


HI HIHI 
F LD _ 


gramme comme s’il s'était agi d’une let- 
tre à un ami, sans provoquer la plus 
petite réaction de l’ordinateur (pas de 
contrôle). Dans une deuxième phase, on 
lançait la compilation de ce texte, c’est- 
à-dire, en bloc, l’interprétation, le con- 
trôle et, enfin, la production d’un code 
spécial exécutable par l’ordinateur. Seu- 
lement, à la moindre petite erreur, idiote 
souvent, comme l'oubli d’un simple 
point virgule, tout s’arrêtait et il fallait 
recommencer. Pour écrire le pro- 
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NOUVEAUTÉ 


_ UN PASCAL PAS COMME LES AUTRES 


gramme, il fallait un programme d’édi- 
tion et pour le compiler, un programme 
compilateur. Et l’on passait souvent, 
trop souvent, de l’un à l’autre. 


Avec ce nouveau Pascal, adieu les va- 
et-vient incessants entre l’édition et la 
compilation ! Comme dans un Basic 
classique, interprété, il n’y a pas de 
phase de compilation séparée. C’est à 
l’exécution que chaque instruction est 
compilée séparément et exécutée. En cas 
d'erreur, corriger est pratiquement un 
jeu d’enfant puisqu’on a toujours le 
programme à l’écran. D’ailleurs, ce lan- 
gage fait encore mieux : il signale l’ins- 
truction qui a causé l’erreur et affiche 
un message d'explication (en anglais). 
Il est parfois si précis qu’on se demande 
pourquoi il n’effectue pas de lui-même 
la correction. 


L'environnement Macintosh impose 
aux applications un « look » spécifi- 
que : fenêtres, menus et dialogues en 
sont les clefs. Une fenêtre est une zone 
de l’écran, bien marquée, qui reçoit un 
type déterminé d’informations. Ainsi, le 
Pascal occupe plusieurs fenêtres pour le 
programme d’écriture (nommé Bullsey 
dans l’exemple page suivante) et les affi- 
chages qu’il produit, texte (Text) ou des- 
sin (Drawing). A cela s’ajoutent deux 
autres fenêtres (Observe et Instant) qui 
sont en fait des instruments d’aide à la 
programmation. La barre de titre de la 
fenêtre active apparaît en grisé, ornée 
de ses instruments : la case de fermeture 
de fenêtre (haut et gauche), les barres 
de défilement (bas et le cas échéant à 
droite). Pour activer une fenêtre (elle 
revient au premier plan et on peut y 
écrire) il suffit de la désigner avec la sou- 
ris (représentée par la petite flèche à 
lPécran) et de presser son bouton 
(cliquer). 

C’est à l’aide de cinq menus qu’on 
contrôle le Pascal, l’édition, le débogage 
et l'exécution : avec File, Edit, Search, 
Run et Windows. Le premier de ces 
menus contient les choix relatifs aux dis- 
quettes, ouvertures et sauvegardes, et 
l'impression de programmes. Le 
second, classique sur Macintosh, 
regroupe les fonctions de couper-copier- 
coller qui assouplissent les possibilités 
d’édition en permettant le déplacement 
(couper) ou la recopie (copier) d’une 
partie d’un programme à un autre 
endroit (coller). Le menu Search ter- 
mine ces fonctions de traitement de 
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texte par la recherche dans le pro- 
gramme d’un texte quelconque, voire 
son remplacement automatique par un 
autre. 


Le menu Run, qui contient les 
options Check, Reset, Go, Go-Go, 
Step, Step-Step et Stop In, est le cœur 
de ce Pascal. Check commande la véri- 
fication du programme sans pour autant 
l’exécuter. Si Go est l’instruction clas- 
sique de démarrage d’un programme, 
Step permet son exécution pas à pas, 
une instruction seulement, tandis que 
Step-Step, en ralentissant l’exécution, 
permet de suivre à l’écran le chemine- 
ment du programme : l’instruction en 
cours d’exécution est désignée à l’écran. 
Idéal pour rechercher une erreur ou plus 
‘simplement bien comprendre le dérou- 
lement d’un programme. 


Avec Stop In, il est même possible 
d'installer des points d’arrêt sur certai- 
nes instructions : à l’exécution du pro- 
gramme, une pause se produira durant 
laquelle on pourra vérifier les informa- 
tions de son choix, et on redémarrera 
avec Go. Enfin, Go-Go, transforme 
tous ces arrêts en brèves pauses pendant 
lesquelles est actualisée la fenêtre 
Observe. 


Programmer 


avec les instruments 


Activable, comme toute fenêtre, 
depuis le menu Windows, Observe peut 
recevoir n’importe quelles expressions 
(variables, calculs,..….) qui seront calcu- 
lées et affichées à la moindre pause, à 
tout arrêt, et même en permanence en 
cas d’exécution automatique pas à pas 
(Step-Step). Cette possibilité donne au 
programmeur le moyen de contrôler 
totalement l’état de ses variables durant 
tous les stades de l’exécution du pro- 
gramme. Avec la fenêtre Instant, on dis- 
pose d’un moyen d’exécuter à côté du 
programme n’importe quelle fonction 
du langage et d’en obtenir instantané- 
ment le résultat. Outil de test des fonc- 
tions et procédures, Instant permet aussi 
de forcer les variables employées par ail- 
leurs dans le programme à prendre une 
certaine valeur à un moment donné : 
stopper l'exécution, modifier des 
valeurs grâce à Instant et reprendre 
l’exécution avec Go. 


Mots réservés 
de Macintosh Pascal 


and il 
array nt 
L not 
begin | 
of 
a e 
cons otherwise 
packed 
3 di procedure 
OWMO  brogram 
. record 
. repeat 
de a 
; strin 
function 8 
dté then 
£ to 
if type 
Fi until 
label uses 
mode var 
while 
with 


Cette grande souplesse dans l’édition, 
le contrôle et l’exécution est l’atout prin- 
cipal de ce logiciel, mais les fonctionna- 
lités du langage ne sont pas ignorées, 
loin de là. Ainsi, le jeu des caractères 
admis comprend les lettres (indifférem- 
ment majuscules ou minuscules car 
l'éditeur mettra automatiquement tout 
mot clef en minuscules et caractères 
gras), les chiffres et symboles spéciaux 
comme@, {, }, [, |, etc. Malheureuse- 
ment, s'agissant d’un produit améri- 
cain, l’éditeur rejette systématiquement 
tous les caractères accentués français ; 
dommage, mais on pourra tout de 
même les afficher en recourant à la péni- 
ble gymnastique de la fonction CHR (). 


Outre les types de données simples et 
classiques : Integer (entier de 2-1] 
maximum), Longint (entier long jusqu’à 
2*!—]), Boolean (binaire) et Char 
(caractère), on trouve les types énumé- 
rés (combinaisons d’éléments), interval- 
les, et Real (nombres réels en précision 
simple [1.5X10 *# à 3.4 x 10%], double 
[S.0X10 ** à 1.7 x 10%] ou étendue 
[1.9xX10-%**% à 1.1 x 10%), Enfin, le 
type Computational est spécialisé dans 
les applications de gestion où le calcul 
exact est exigé. On le voit, ce Pascal est 
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1] 


NO EN EE NT. a 


ad 


Un programme en cours d'écriture et 


les différentes fenêtres correspondantes 


6 File Edit 


Search MIE Lindouws 


*Bulise 


program EullsEuR: 


const 


nlircles = 1GG: 


YTatsl = 200; 

hTatal = 200; 
var 

i:integer; 


hincr : integer; 
vincr : inteqer: 


hincr : 
vIncr : 


Step &S 
Step-Step 


ji AU 


Li 
ut uit 
(LL 


fau 


RE 
lu Hi ju fa D 
Li ! 


hTotal div (2 * nCircles}; 
YTotel div {2 * nCircles}; 


PaintOval(O, 0, vTatsl, Total}: 


for i :- 


1 tonCircles do 


InvertOval(vincr # i, hincr *# i, VTota 


HTRE. 


{äny ststements, any time.} 


bien armé pour ce qui concerne la mani- 
pulation de chiffres. 


Et celle des chaînes de caractères n’est 
pas absente avec le type String (jusqu’à 
255 caractères). En Record, on pourra 
se constituer des fiches de types compo- 
sés d’un mélange des autres. 


Goto toujours 


présent 


Les tableaux ont la souplesse habi- 
tuelle qui permet de se concocter des 
tableaux de tableaux de types standard 
ou particuliers : de belles salades en 
perspective... On en terminera avec les 
types standard de données en mention- 
nant les Set types (ensembles), Files 
types (fichiers), Pointer-types (poin- 
teurs, très employés sur Macintosh). 

Pascal est un langage structuré, on 
retrouve donc les Procedure et Function 
standard, les Begin...End, If... 
Then...Else..., Case...Of...Other- 
wise...ÆEnd, Repeat...Until, While... 
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ni 


Ve 0 


1 {III 


= DbserLve == 


Enter an expression a à 


Do..., For...To (ou Downto)...Do..…., 
With...Do..…., etc. Mais le Goto n’est 
pas absent pour autant. 


L’utilisateur dispose en outre d’une 
importante batterie de procédures et 
fonctions prédéfinies. Cela va de la lec- 
ture et l’affichage de données, à l’appel 
de routines internes du Macintosh 
(comme OldFileName qui fait apparaî- 
tre la fenêtre de dialogue pour choisir 
un fichier sur la disquette, avec la pos- 
sibilité d’en changer, ou NewFile- 
Name qui réalise l’opération inverse en 
vérifiant que le nom tapé ne correspond 
pas déjà à un fichier existant) via des 
fonctions sophistiquées de dessins, affi- 
chages de textes, de calculs scientifiques 
et financiers, etc. 


A deux points de vue, ce langage est 
une réussite : sur un plan standard, et 
comme outil spécifique au Macintosh. 


Il reste en effet, relativement compa- 
tible avec la norme UCSD, classique 
désormais, et le LisaPascal. D’un côté 
donc, on pourra apprendre avec des 
ouvrages en français (comme le bon 
manuel Apple Pascal aux éditions 
McGraw Hill) car la documentation en 


langue anglaise est assez succincte, et 
reprendre sans grande modification des 
programmes Pascal classiques. 


D'autre part, le programmeur peut 
employer la majorité des fonctions et 
procédures standard implantées dans les 
mémoires mortes du Macintosh, soit 
directement, soit via la fonction InLine 
(à condition de connaître les numéros 
d’appel de ces fonctions et leur syntaxe). 


Il est techniquement possible de pro- 
grammer une application similaire à 
Macwrite ou Macpaint — bien sûr aux 
temps d’exécution près —, de gérer soi- 
même fenêtres, menus, dialogues et tout 
ce qui fait la puissance de l’interface uti- 
lisateur du Macintosh. En fait, ce Pas- 
cal sera souvent préféré pour ses puis- 
santes fonctionnalités d’édition et la 
mise au point de programmes, mais les 
versions utiles d’une certaine envergure 
seront avantageusement modifiées puis 
reprises définitivement par Mac Advan- 
tage (Pascal compilé) ou même 
LisaPascal. 


Jean-Christophe KRUST 
LIST - PAGE 37 


I jongler avec la pile opérationnelle de votre 

HP-41 C, traquer la milliseconde perdue et 
rogner le moindre octet est votre pain quotidien... 
Ou si, à l'inverse, vous échappe parfois un peu de 

la subtile recherche des programmes en Notation 


Polonaise Inverse... 


Alors voici qui doit vous intéresser, En matière de 
programmation, est-on jamais certain d’avoir fait 
aussi bien que possible ? Dans cette rubrique, 

les défis — vos défis — se succèdent : des 
programmes toujours plus courts, plus rapides... 


Et les records vivent ! 


Ah, le beau défi ! Par le nombre 

de participations reçues au jour- 
nal, un nouveau record vient d’être 
battu : depuis deux ans (à un mois près) 
que vit la rubrique, jamais autant de 
courrier ne nous était parvenu. 


Avec Extremum optimum est, il 
s’agissait de déterminer par programme 
l’extremum d’une classique équation du 
second degré : Y = aX? + bX + c. La 
solution, tant mathématique qu’infor- 
matique, est évidemment simplissime : 
c’est le point d’abscisse — b/2a. Ce cal- 
cul donne bien la valeur de X pour 
laquelle l'équation du second degré aX° 
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+ bX + cest optimale, c’est-à-dire soit 
un maximum, soit un minimum. 


Dans un premier temps donc on 
décrira techniquement le(s) meilleur(s) 
algorithmes dégagés par les lecteurs. 
Ensuite, on saisira l’occasion d’intro- 
duire le concept de dérivées première et 
seconde d’une fonction mathématique. 
Mais si... le lien avec l’extremum est 
facile ! 


Nous avons dit —b/2a, et Jean 
Thiberge, Robert Pulluard, Franck 
Wettstein, Thierry Coquard, Arnaud 
Peruta, Bernard Allaud et Denis Des- 
cause l’ont bien compris qui ont réalisé 


tous simultanément la meilleure routine 
de calcul. 


Cette équation ne tombe évidemment 
pas du ciel, elle est l’expression de la 
dérivée de la fonction Y = aX°? + bX 
+ csoit Y’ = 2aX + b que l’on trouve 
en appliquant à chaque monome du 
type aX" la transformation naX"! 
(alors on obtient 2aX'! et 1bX° soit b). 
Si vous l’ignoriez, notez bien cette trans- 
formation car elle permet de retrouver 
simplement la plupart des formules des 
dérivées (sachant que Vx = xl?, 
1/x = x’, etc.). 

Maintenant, il convient de trouver la 
valeur de X pour laquelle Y est maxi- 
mum ou minimum : il s’agit justement 
du point où la dérivée s’annule ! On 
posera donc 2aX + b = 0 ce qui donne, 
enfin, X = —b/2a. 


Des rappels 


informatiques 


Pour ce qui est de l’expression infor- 
matique de ce calcul, rappelons qu’on 
devait introduire les coefficients a, b et 
c dans la pile opérationnelle de la 
manière suivante : a ENTER b ENTER 
c, et d’un XEQ allègre lancer le pro- 
gramme de calcul. 

Laissons à Jean Thiberge — le pre- 
mier, chronologiquement, des vain- 
queurs — le soin d’expliquer la démar- 
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che de la routine gagnante reproduite ci- 
dessous : 


O1 LBL ’’EXTR” 


02 X <> Y 
03 CHS 

04 2 

05 / 

06 ENTER‘ 
07 R 

08 / 

09 x 

10 ST-Y 

IH X <> L 
12 .END. 


« Parmi une douzaine de solutions 
légèrement différentes, tournant toutes 
en 12 octets de programme seulement 
(sans compter ni le LBL de tête, ni le 
END final), voici la plus rapide : 0,322 
seconde sur une HP-41 CX. 


« On aura pu déplacer à loisir le CHS 
dans le programme (éventuellement en 
changeant le ST — Y en ST + Y), ou rem- 
placer CHS 2 par —2 ce qui fait gagner 


Minimum et maximum ont un point commun : 


une pente nulle 


maximum 


vers - l'infini 


vers + l'infini 


minimum 


1 pas, aucun octet, et perdre 23,3 micro- 
secondes. 


« Enfin, on pourra sacrifier 0,4 ms et 
1 ligne en remplaçant *ST-YX< >L 
par STOT x — X< > Y ceci ayant pour 
but de conserver dans Z et T l’abscisse 
de l’extremum X au lieu de la désormais 
inutile constante c. » 


Calculer la dérivée d’une fonction 
mathématique en un point donné, c’est 
calculer sa pente, tout simplement. 
Ainsi, avec f(x) = 3 x? — 4x + Set 
la transformation naX"! on obtient la 
formule de la dérivée : f(x) = 6x — 4. 

Comme on recherche un extremum 
(maximum ou minimum), une déduc- 
tion s'impose du graphe ci-dessus : 
minimum et maximum ont un point 
commun, une pente nulle ! En effet, là, 
la tangente est symbolisée par un trait 
horizontal et chacun sait qu’alors si cela 
ne descend ni ne monte, c’est que la 
pente vaut zéro. 


QUI DIT MIEUX ? 


OMME la détermination des points particuliers des courbes passionne, 
dérivons au troisième degré ! Trouver les coordonnées du point d’in- 
flexion d’une courbe du troisième degré dont l’équation a la forme : Y = 
aX5 + bX2 + cX + d. Par exemple, pour Y = X? — 9X? + 18X + I ce 


point est en X = 3et Y = I. 


Là encore, les coefficients a, b, c et d doivent être introduits dans l’ordre 
en pile opérationnelle (a ENTER b...) ne laissant que LASTX pour jongler 


un peu. 


Ma, ou plutôt mes solutions ne nécessitent que 24 octets chacune et n’em- 


ploient que la pile opérationnelle. La première ’INFLEX?”” comporte 19 lignes 
(toujours sans compter ni le LBL de tête, ni le END final) et s’exécute en 
436 microsecondes environ, tandis que la seconde *’INFLEX””, est réduite 
à 18 lignes mais s’éternise... sur 503 microsecondes. 


Bien sûr, les coordonnées X et Y du point d’inflexion sont chacune dans 
le registre du même nom à l’arrivée. 


Robert PULLUARD 
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EE 


Et c’est pourquoi la solution du pro- 
blème de la recherche de l’extremum 
d’une fonction réside toujours dans la 
simple annulation de sa fonction déri- 
vée… Comme ici, s’agissant d’une équa- 
tion du second degré, f’(X) = 2aX + 
b et que cela est nul, on obtient bien 
X = —b/2a. 


En haut 


ou en bas ? 


Donc, on a la valeur (—b/2a) de l’ex- 
tremum X qui optimise le résultat Y. 
Mais s’agit-il d’un maximum ou d’un 
minimum ? C’était le défi de LIST n° 9 
dont nous donnerons la solution infor- 
matique le mois prochain. Mais, déjà, 
compte tenu de ce qui précède, on peut 
orienter plus précisément les recherches 
qui n’auraient pas encore abouti. 

Qu'est-ce qu’une dérivée seconde ? 
La fonction dérivée de la dérivée, tout 
simplement. Intuitivement, cette dérivée 
seconde serait la pente de la pente... On 
la calcule simplement, à l’aide de la 
même transformation naX"! que pré- 
cédemment sur une équation du second 
degré : 

f’(X) = 2aX -b 
F”(X) = 1 (2a) X° = 2a 


Si cette dérivée seconde est positive, 
on se trouve toujours dans le cas où de 
part et d’autre du point optimal, la 
fonction remonte vers + oo, alors il 
s’agit d’un minimum. Si la dérivée 
seconde est négative, la fonction va vers 
— æ et l’optimum était un maximum. 
Oserons-nous dire que tester le signe de 
2a, c’est tester celui de a ? Si maintenant 
un optimiseur « sèche » encore sur la 
solution du défi du prochain LIST... 


Jean-Christophe KRUST 
LIST - PAGE 39 


THOMSON 


SAFARI-MÉMOIRE 


OUR explorer commodément les méandres de 
votre Thomson — à moins que ce ne soit 

celui de votre ministère de tutelle — rien de tel 
qu'un bon vieux DUMP HEXA, avec les codes ASCII 
en colonne de droite, Un petit programme Basic 
fera cela très bien. Naturellement, les REMarques 
ne sont là que par souci de clarté et 
Vous pourrez vous dispenser de les frapper 
si vous avez hâte de voir le résultat. 


Profitant des possibilités graphi- 

ques des ordinateurs Thomson, 
le programme de DUMP présenté ici va 
commencer par nous offrir une belle 
page de titre. Bordure et fond seront 
noirs (ligne 200), le message DUMP 
HEXA sera en quadruple taille et en 
bleu (ligne 210), les commandes seront 
en blanc et l’entrée de l’adresse de 
départ sera en rouge (lignes 220 à 270). 
On retrouvera ce bel affichage tricolore 
(matériel français oblige !) dans la bou- 
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cle principale, puisqu’on sortira les 
adresses en bleu, les octets en blanc et 
les caractères ASCII en rouge. 


Or donc, on a la possibilité, selon ses 
convictions personnelles de donner au 
programme l’adresse de départ, soit en 
décimal, soit en hexadécimal, auquel cas 
on est invité à la faire précéder du signe 
“$”? pour que l’ordinateur s’y retrouve. 
La présence, dans le Basic Microsoft du 
TO7, de la fonction HEXS$ et de la nota- 
tion ‘‘&H”” évite des acrobaties de con- 


version qui s’imposent sur le MOS. Rap- 
pelons que HEX$(x) renvoie une chaîne 
de caractères qui est la valeur hexadéci- 
male du nombre décimal x, et que 
VAL(“&H’”’+X$) renvoie la valeur 
décimale du nombre hexadécimal XS$. 
La ligne 300 affiche donc l’adresse de 
départ À, en hexadécimal, et la formate 
avec ce qu’il faut éventuellement de 
zéros en tête. La boucle en 400-410 
effectue simultanément deux tâches : 
elle prépare la traduction ASCII, con- 
tenue dans la chaîne A$, et affiche un 
par un les octets, eux aussi présentés en 
hexadécimal, avec zéro forcé en tête. 


Des caractères 


impitoyablement éliminés 


Maïs pour l’affichage des caractères, 
on ne peut afficher les codes inférieurs 
à 31, qui sont des caractères de contrôle 
et viendraient perturber la belle ordon- 
nance de notre écran. De même, les 
caractères de code supérieur à 127, n’ap- 
partenant pas au code ASCII propre- 
ment dit, seront impitoyablement élimi- 
nés et remplacés par des points (ligne 
410). A la ligne 430, un compteur de 
lignes assure une présentation par page, 
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Safari-mémoire 
Programme pour TO7 où 
OPA 
Auteur François J. B 
Copyright LIST et 


REM FAGE DE TITRE 
RE 

REM 

CLS: SCREEN ,0,0 


240 FRINT'FLECHE EN BAS: 
250 FRINT'RETURN: 
260 FRINT'RAZ: 


270 COLOR 1:PRINT'ADRESSE DEFART (FREFIXE ‘#' SJ] 
288 CLS:L=Q:IF LEFT#H(A#, 


290 A=VAL(A#) 
291 REM 
292 REM ==ssemememe 


NOUVELLE ADRESSE" 
FIN": PRINT 


1)="#" THEN A=VAL ('SHU4MIDE (AF,2) ): GOTO 700 


297 REM BOUCLE DE LECTURE 
294 REM ===emmecmemememees 


295 REM 
296 REM 


299 REM 


300 COLOR 4:PRINT RIGHT#("@ODQ'"+HEXS# (A) ,4)3" "3; : COLOR 7 


395 REM 


396 REM 


297 REM OCTETS HEXA % CHAINE ASCII Af 


298 REM 


3299 REM 


400 Af="":FOR I1=0 TO 7: X=FEEK(A+I): PRINT RIGHT#("QO"+HEX#CX) ,2 
410 IF X>31 AND X2128 THEN A#=A#F+CHRE(X) 


420 NEXT I:COLOR 1:FRINT A$:COLOR 2 


450 LeL+i:A=A+8:1F L<24 


498 REM 
499 REM 

500 K#F=INKEYE 

510 IF KF=CHRE(13) THEN 
520 IF K#F=CHR$(19) THEN 
SF 1F K#<CHR$(11) THEN 
540 IF K#=CHR#(12) THEN 
550 GOTO 500 


THEN 500 


270 

CLS:GOTO :00 
A=A-284;:CLS:GOTO :00 
END 


Pour adapter ce programme au MOS, il suffit d'écrire une rou- 
tine convertissant un nombre décimal en une chaîne hexadécimale. 


L'instruction HEX$ effectue une 


telle conversion. Elle existe 


sur le TO7 (et le TO7/70), maïs pas sur le MOS. 


| 
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LS / 

210 FRINT:ATTRE 1,1:COLO0R 4:FRINT TAR(S); "DUMP HEXA“ 
220 ATTRE @,OG:FRINT:COLOR 7: FRINT'COMMANDES: "2: FRINT 
250 FRINT'FLECHE EN HAUT: ADRESSES FRECEDENTES" 


ADRÈSSES SUIVANTES" 


ELSE A$=A#+",. 


LL 


et l’affichage s’arrête dès que 24 lignes 
d’écran sont remplies. 


On passe alors à la boucle d’attente 
des lignes 500 et suivantes. La touche de 
curseur flèche en bas provoque l’effa- 
cement de l’écran et l’affichage de la 
page suivante. La touche de curseur flé- 
che en haut ôte de l’adresse en cours le 
nombre d’octets affichés dans deux 
pages-écran (2 fois 192) et affiche donc 
la page précédente. La touche 
RETURN renvoie à l’entrée d’une nou- 
velle adresse de départ. La touche RAZ, 
enfin, permet d’effectuer une gracieuse 
sortie. 


Voir la mémoire 


depuis le début 


Si donc vous répondez zéro à la ques- 
tion ‘‘Adresse départ ?””, vous verrez le 
début de la mémoire Basic. Elle est 
signée (octets 0 à $19) et vous constate- 
rez qu’à partir de l’octet $92, on a la 
liste des mots clés, tassés les uns contre 
les autres. Mais ils se distinguent les uns 
des autres par cette particularité que la 
dernière lettre de chaque mot a le bit de 
poids fort à 1, ou, si vous préférez, un 
code arbitrairement majoré de 128 (le 
premier chiffre hexa est C ou D au lieu 
de 4 ou 5). Vous demandez des preu- 
ves ? Bon d’accord, vous l’aurez 
voulu ! Ajoutez donc : 

1000 FOR I =&H92 TO &H269 

1010 A = PEEK(T 

1020 IF A < 128 THEN PRINT CHR$ 
(A); ELSE PRINT CHRS(A- 
128) 

1030 NEXT I 


Quant à désosser vos propres pro- 
grammes Basic, une bonne adresse de 
départ : $65F4. Vous y retrouverez les 
composantes traditionnelles du stoc- 
kage : un zéro pour commencer, un link 
(ou adresse du début de la prochaine 
ligne) sur deux octets, deux octets 
encore pour le numéro de la ligne, puis 
le texte de la ligne, dans lequel les mots 
clés de basic sont représentés par des 
codes commençant à 128 ($80) pour 
END, et se suivant dans l’ordre que 
vous aurez pu voir avec le petit pro- 
gramme précédent. 


Vous avez donc votre permis de 
chasse en mémoire, profitez de ce 
‘‘safari-mémoire”’. 


François J. BAYARD 
LIST - PAGE 41 


LES COUPS D'OEIL DE LIST 


OGICIEL de création graphique pour Oric-1 et 
Atmos, Master Paint s'utilise directement au 

clavier ou avec une manette de jeu. Pour faciliter 
le dessin depuis le clavier, les commandes ne 
comportent qu'une seule lettre. Et le curseur va, à 
gauche, à droite, en biais, en cercle, etc. 
On peut même tout effacer, ou enregistrer 
son œuvre sur cassette afin de la réutiliser à 
l'intérieur d’un programme. 


Présenté sur cassette à chargement 

rapide, Master Paint dévoile 
immédiatement une partie de ses possi- 
bilités par une petite démonstration. Un 
appui sur la barre d’espace et l’écran 
devient tout noir, un seul petit point — 
le curseur — apparaissant en haut à gau- 
che. Ce noir n’est pas rassurant du tout, 
et il ne reste plus qu’à se plonger dans 
le manuel d'emploi. On y apprend une 
chose essentielle : l’appui sur H (comme 
Help) donne une ‘‘Table Help””, c’est- 
à-dire en fait des explications. 


On a alors devant soi un très beau 
bandeau graphique qui indique les dif- 
férentes commandes et leur mnémoni- 
que: CRTBLPEQWYZO.Si 
les sept premiers mnémoniques sont 
faciles à retenir (Cercle, Rectangle, 
Traits, Bloc à transporter, Loupe, Plein, 
Enregistrement sur cassette), les sui- 
vants nécessitent plus de mémoire : Q 
pour la lecture d’un dessin, W pour 
l'écriture (W comme Write), Y pour tra- 
cer un triangle, Z pour redéfinir des 
caractères, et O pour choisir la couleur. 


Une autre commande, X, doit être 
utilisée avec une grande prudence : elle 
efface l’écran sans demander, malheu- 
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reusement, de confirmation (un appui 
sur cette touche par inadvertance, et 
l’œuvre en cours est perdue !). 

Avec toutes ces possibilités, on arrive 
très vite à remplir l’écran de formes géo- 
métriques et colorées. On évolue faci- 
lement et on dessine n’importe quoi. Le 
résultat est parfois spectaculaire. Tout 
semble facile. Mais à la première erreur, 
au premier choix mauvais, à la première 
touche confondue, on risque d’être pris 
au piège, sans pouvoir en sortir. Alors, 
on se replonge attentivement dans le 
manuel d'emploi, et on essaye de trou- 
ver le moyen de sortir de la routine dans 
laquelle on est entré par erreur. Or, à 
ce niveau, aucune annulation de fonc- 
tion n’est prévue, l’utilisateur est con- 
damné à ne jamais se tromper. Le plus 
souvent, il ne lui reste qu’à tout effacer 
(par la commande X) et à recommen- 
cer depuis le début. 


Le dessin — sans erreur — est très 
simple. On se déplace dans huit direc- 
tions, on tire des traits et on règle la 
vitesse de déplacement. 

L'utilisation des commandes T, C, R 
et Y est précédée du choix de l’origine 
de la figure (déplacement et validation), 


MASTER PAINT 
POUR DESSINER SUR ORIC 


ainsi que de celui du ou des autres 
points. Elle est suivie par la possibilité 
de tracer la forme, de remplir ou même 
de gommer. Pour sortir de la routine, 
on appuie sur F, comme Fin. 


Pour connaître la position du curseur, 
on tape À : les coordonnées du point de 
l’écran s’affichent. Seule la redéfinition 
des motifs de remplissage (par Z) auto- 
rise l’utilisateur à changer d’avis. Et les 
motifs sont de toutes formes. On peut 
même redéfinir la police de caractères. 


Pour fignoler, 


prenez la loupe 


Les blocs d’image sont transportables 
de plusieurs manières : par reproduc- 
tion (N), superposition (S) ou inversion 
(1). Les effets sont garantis. Les dessins 
peuvent aussi être globalement transla- 
tés dans les quatres directions, grâce aux 
quatre flèches. 

Une fonction des plus importantes est 
celle qui permet d’entrer dans les détails 
d’un dessin et d’y apporter des rectifi- 
cations fines : la loupe (L). Elle agran- 
dit 864 points sur les 48000 de l’écran. 


Il est possible enfin de mémoriser (M) 
le dessin, ou de l’enregistrer (E) et de le 


Le logiciel en quelques lignes 
Nom : Master Paint 
Ordinateurs : Oric-1 et Atmos 
Forme : cassette 


Édité et distribué par : Êre Informatique 
Prix public : 250 FF 

Principale orientation: conception 
graphique 
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relire sur cassette (Q). Cette dernière 
opération concerne la totalité de la page 
haute résolution et demande environ 
trois minutes. Il est regrettable de ne pas 
pouvoir traiter seulement une partie de 
lPécran, par exemple pour l’animer plus 
tard. Mais ce logiciel n’est pas orienté 
vers le dessin animé. Il permet déjà de 
préparer un dessin sur une page entière 
et on peut imaginer de l’utiliser pour 
confectionner le décor d’un jeu. Il ne 


faut pas oublier alors de noter les coor- 
données des principaux points. 


Ce logiciel complet dans ses proposi- 
tions graphiques est parfois complexe : 
selon la routine dans laquelle on se 
trouve, une même lettre signifie diffé- 
rentes choses (par exemple, dans la rou- 
tine commandée par B, N signifie repro- 
duction ; dans la routine de création de 
cercle, commandée par C, ce même N 


déclenche un retour au mode d’évolution 
normal). C’est pourquoi, le logiciel ne 
se suffit pas à lui-même, la documenta- 
tion est indispensable. 


Mais s’il est facile de tracer n’importe 
quoi, il faut savoir que Master Paint ne 
fera de vous un artiste... que si vous 
l’êtes déjà ! 


KUMA FORTH 


POUR LES 
ORDINATEURS MSX 


ES MSX sont en grande partie définis par leur Basic 
super-étendu, mais on commence à voir apparaitre d’autres 
langages pour cette famille d'ordinateurs. Nous avons essayé 


le Forth de Kuma sur un Yashica 64. La cassette devrait 
fonctionner sans problème sur toutes les machines MSX. \ 


Avant de charger la cassette, on 

doit lui réserver de la place car le 
Forth va cohabiter avec le Basic, et non 
prendre sa place en mémoire centrale. 
Cette opération se fait en un clin d’œil : 
CLEAR 200, &H87FF, et nous pouvons 
frapper BLOAD ’’KFORTH”’, R. Au 
total, il faut compter deux minutes 
avant de voir un O.K. (message tradi- 
tionnel du Forth) nous saluer à l’écran. 


Quelques manipulations très simples 
nous font alors découvrir un noyau de 
base très classique et conforme au stan- 
dard ”’FIG FORTH”’. 


Tous les mots de manipulation de la 
pile en simple et double longueur sont 
présents, mais on regrettera que le mot 
(n)PICK permettant la recopie du nième 
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élément de la pile sur son sommet, 
absent du vocabulaire Forth, ne soit dis- 
ponible qu’après l’appel à l’extension 
virgule flottante. 

Pas de modes FAST ni SLOW, con- 
trairement à de nombreux Forth (le 
mode FAST, en simplifiant les vérifica- 
tions effectuées par l’interpréteur, 
accroît la vitesse d'exécution des pro- 
grammes une fois leur mise au point ter- 
minée). Il suffit d’une mauvaise utilisa- 
tion de la pile des retours (ou d’une 
autre fausse manœuvre) pour que l’or- 
dinateur se plante. L'absence de bouton 
RESET sur notre système oblige à 
recharger le langage : tout est à repren- 
dre à zéro. 


Si les boucles et Les structures répéti- 


| 


Démonstration de forth par Maître Kuma 
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tives sont bien présentes (DO...LOOP ; 
DO... +LOOP ; BEGIN AGAIN; 
BEGIN... WHILE... REPEAT), on ne 
trouve pas contrôle de cas du type 
CASE... OF... ENDOF... ENDCASE, 
ce qui devient pourtant très courant et 
évite l'emploi de trop nombreux IF... 
THEN imbriqués. 


La manipulation des caractères est, 
elle aussi, très classique et conforme au 
stantard (EXPECT, KEY, EMIT, etc.), 
avec toutefois quelques améliorations 
(MEXPECT, MEXIT) qui contrôlent 
l'appui sur CTRL-STOP. Nous retrou- 
vons également tous les mots de 
définitions (CREATE, VARIABLE, 
< BUILDS.. DOES >, etc.), ainsi 
que ceux dont l’action s'exerce sur la 
mémoire et le dictionnaire : C, ALLOT, 
HERE, ERASE, FILL, CMOVE. En 
revanche, pas de déplacement mémoire 
commençant par la fin. 


Une notice 


hélas en anglais 


Beaucoup plus originale est l’exten- 
sion « virgule flottante » que l’on 
trouve dans le programme de base et qui 
permet de manipuler des nombres entre 
1,469380 E-39 et 1,7014118 E 38. L’ac- 
cès à cette extension est réalisé par le 
nom du vocabulaire FLOATING. La 
plupart des primitives de manipulation 
des nombres entiers se retrouvent en vir- 
gule flottante précédées de la lettre F. 
C’est le cas de F., Fx, F—, FDUP, 
FROT,F<,etc., et de F(n}PICK dont 
nous avons déjà parlé. 


Jusqu’à présent, un programmeur 
ayant déjà tâté du Forth peut très bien 
s’en sortir sans la notice, mais dès que 
l’on aborde la gestion de la mémoire de 
masse, cette notice devient absolument 
nécessaire, et c’est là que les difficultés 
commencent pour quiconque ne connaît 
pas bien la langue de Shakespeare. La 
notice fournie (70 pages) est en effet 
rédigée en anglais. 

La première opération à effectuer 
consiste à formater une cassette vierge 
grâce au mot FORMAT. Le magnéto- 
phone étant en position enregistrement, 
la bande se trouve segmentée en blocs 
d’un Ko comportant chacun une en-tête 
numérotée. Ainsi, quand le magnéto- 
phone sera en position /ecture, l’ordi- 
nateur pourra retrouver le bloc sur 
lequel il doit travailler. Il lui faut vingt 
secondes pour lire un bloc. 


Au début, il faut s’habituer à ces 
manœuvres, mais cette façon d’organi- 
ser la cassette s’apparente de près à ce 
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Le Forth est un langag 
peu de place en mémoire. 

Les données sont Annee , 
tion polonaise post-fixée. 

La notion même de prog M 


Jés primitives 
debar SRE Le Hrautres mots qui peu 


l'utilisateur ré . 
ainsi de suite. Un programme : : 
est extensible indéfin 


langage ; sibl 
de sroblèmes qu’il doit résou 


La gestion 
est segmentée en : 
plus abs entre 1 et 10 blocs P 


Enfin, un gr D 
bles, mais pO > 
introduit que lorsqu el 
pulation de chaînes, € 


qui se passe avec une disquette. Toute- 
fois, le temps de recherche est long et 
on doit faire très attention avec les bou- 
tons du magnétophone afin de ne pas 
effacer accidentellement un bloc. 


La modification ou l’écriture d’un 
bloc s’obtient en tapant n EDIT, ce qui 
donne accès à un éditeur pleine page 
vraiment très pratique. Chaque bloc est 
organisé en 16 lignes de 64 caractères 
(16 x 64 — 1024, soit 1 Ko). Le bloc 
apparaît à l’écran avec ses 16 lignes 
numérotées. Malheureusement, une 
ligne d’enregistrement ne correspond 
pas à une ligne d’écran, mais environ à 
une ligne et demie : lors de lécriture, 
rien ne signale à l'utilisateur qu’il est en 
train de dépasser les 64 caractères ; c’est 
lors du listage — et donc trop tard — 
qu’il s’apercevra de la disparition pure 
et simple des caractères en trop. 


Six blocs peuvent résider simultané- 
ment en mémoire centrale. Pour graver 
sur la cassette ceux que l’on vient de 
créer ou de modifier, on tape FLUSH 
et l’on met le magnétophone en position 
lecture. L'ordinateur indique les blocs 
rencontrés et s’arrête au bon numéro. 
On place alors le magnétophone en posi- 
tion enregistrement : une pression sur 
RETURN et l'écriture s’effectue. 


Après le noyau Forth proprement dit, 
on trouve aussi sur la cassette, huit blocs 
qui constituent une manière de notice. 


Le logiciel en quelques lignes 
Nom : Forth 
Ordinateur : MSX 
Forme : cassette 
Edité par : Kuma 


Distribué par : innelec 
Prix public : 485 FF 
Principale orientation : langage Forth 


La notice d'accompagnement (70 pages) est 
rédigée en anglais 


Petit rappel Sur le lan 
e à la fois compilé et int 
lées grâce à deux piles avec lesquelles 
ariables sont pOssi 


dre en programmant- 
e masse utilise le 


ns du langage de base sont 


F incipe : 
ur rester fidèle au po Le (double préc 


gage Forth 


s : be 
erprété. fl est très rapide et OCCUP 


on travaille en nota- 


bles mais à éviter... 


Forth : au moyen 
orte l'équivalent 


ire vi lle 
i 6 re virtuelle. E 

incipe de la mémo L 
Ps Énarétient. Avec les systèmes les 
: multanément en mémoire. | 
maintenant disponi- 


jre utilisé, on ne€ jes 


ini e mémo : 
se on virgule flottante, manl 
décompilateur etc.). 


mbleur, 


On peut les consulter par n LIST ou les 
compiler si nécessaire par n LOAD. Le 
premier affiche des renseignements sur 
l’auteur et la conformité du logiciel au 
standard FIG. Le deuxième bloc con- 
tient la définition d’un mot très utile, 
point-S (.S) qui permet d’afficher le 
contenu de la pile sans la modifier. Pour 
essayer cette extension et la faire entrer 
dans le dictionnaire, on tape 2 LOAD. 
Le bloc n° 3 est entièrement vierge. Les 
deux suivants contiennent la liste des 
messages d’erreur. Les trois derniers 
sont consacrés à la définition de mots 
permettant de travailler sur des chaînes 
de caractères. Ces mots, qui ont un petit 
air de Basic, sont $VARIABLE, 
$= LEFTS, RIGHTS, MID$. Pour les 
rendre opérationnels, il suffit de taper 
6 LOAD. 


Il aurait été très utile que le concep- 
teur de ce programme définisse un cer- 
tain nombre de mots non standard pour 
la gestion du générateur sonore et sur- 
tout de la haute résolution graphique. 
Malheureusement, rien n’a été prévu, et 
c'est dommage, car avec le Forth et sa 
rapidité, nous aurions pu réaliser des 
jeux très rapides sans avoir recours au 
langage-machine. 


En conclusion, les possesseurs d’un 
MSX disposent avec ce logiciel d’un bon 
outil d'initiation au langage Forth, con- 
forme au stantard FIG, avec quelques 
lacunes certes, mais aussi une bonne 
dose d’originalité et des extensions du 
langage très intéressantes. 


Une version en cartouche, une notice 
en français, quelques mots supplémen- 
taires pour la gestion du son et du gra- 
phisme, et l’outil serait parfait. Jamais 
content ! Allez, bye. c’est le mot (de 
la fin) qui permet de quitter le Forth 
pour retrouver le Basic. 


Michel BROCHAND 
N° 10 - JUIN 85 


HT. ND EST ES Ce I, 


ÔT ou tard, les ordinateurs familiaux sont 
amenés à servir à des applications 

« sérieuses », Pour ce faire, il faut des logiciels 
adéquats. Prenez le Dai. Il est surtout connu pour 
ses capacités graphiques. Mais, si vous lui 
adjoignez le logiciel Superbase, il devient un 
gestionnaire capable de manipuler un fichier 
d'environ 36000 caractères, avec des options de 
tri, de sortie formatée et de « mailmerge », 
c'est-à-dire d'insertion de données dans un texte 


préparé à l'avance. 


Le logiciel Superbase est distribué 

par le DAIÏnamic Club, sous forme 
d’un « package », sur cassette audio ou 
micro-cassette digitale. Les programmes 
contenus dans ce package ne sont pas 
protégés, si bien qu’il est facile de les 
transférer sur disquette. Ce qui est qua- 
siment nécessaire, pour une application 
sérieuse, en raison de la relative lenteur 
de chargement des autres media. 


Saluons au passage cette attitude cou- 
rageuse, qui va dans le sens de l’intérêt 
de l’utilisateur. Le package comprend 
le logiciel Superbase proprement dit. Il 
se charge sous UTILITY, par le classi- 
que UT Z3 G400 (ou CALLM #400, 
depuis Basic). Les connaisseurs auront 
remarqué que le début en #400 signifie 
que le programme est « indestructi- 
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ble », même par un RESET général. 
Encore un très bon point. 


Les utilitaires livrés avec Superbase 
permettent de convertir un ancien 
fichier d’adresses, et de le mettre au for- 
mat Superbase. Ainsi, il n’y aura pas à 
réécrire de longues listes de noms et 
d’adresses. Append, un autre utilitaire, 
permet la fusion de plusieurs fichiers 
Superbase. Utile aussi, quand il s’agit 
d’aller « à la pêche », dans d’anciens 
logiciels, pour créer un fichier rénové. 
Enfin, SB.Extentions est un utilitaire 
qui ajoute quelques commandes au 
Basic du Dai. Ces commandes permet- 
tent de manipuler un fichier Superbase 
directement depuis un programme 
Basic, par exemple, pour y insérer des 
données provenant de ce fichier. Qui- 


EE 


SUPERBASE 


GÈRE DES FICHIERS 
SUR LE DAI 


conque a déjà utilisé un gestionnaire de 
fichiers voit que les options habituelles 
sont toutes là, dans Superbase. 


Au menu, les 


indications nécessaires 


Après le lancement, le programme 
affiche son menu principal (photo 1, 
page suivante). Les commandes sont 
repérées par l’initiale de l’action (L pour 
Load, $ pour Save, etc.). Facile donc de 
s’y retrouver, d’autant que le menu 
donne toutes les indications nécessaires. 
La première chose à faire, dans un ges- 
tionnaire de données, est la création du 
masque de saisie (commande F, pour 
File definition). Chaque fiche peut être 
constituée d’au maximum 20 lignes de 
40 caractères. C’est plus que suffisant, 
en usage courant. 


Classiquement, la création du masque 
demande le nombre de lignes désiré, le 
nom de chaque rubrique et la longueur 
des entrées. Du choix judicieux de ce 
formatage dépend le nombre de fiches 
possible, sachant que le tampon global 
du fichier contient la place pour 36000 
caractères. Inutile donc d’attribuer 40 
caractères pour la rubrique CODE 
POSTAL ! En cas d’erreur de juge- 
ment, il sera toujours possible de modi- 
fier le masque ultérieurement (com- 
mande T, pour Transform the file), 
voire d’ajouter des rubriques. 


La commande E (Enter data) permet 
la saisie des données, à partir d’un quel- 
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conque numéro de fiche (à condition 
qu’il soit existant !). Pour chaque rubri- 
que, un bandeau vert pâle indique clai- 
rement l’espace autorisé pour la saisie. 
En cas de tentative de dépassement, le 
superflu est ignoré, simplement. Par 
contre, l'écriture d’une ligne s’effectue 
sous éditeur (déplacement du curseur à 
gauche et à droite, insertion, efface- 
ment). Très pratique. Les touches flè- 
che en haut et flèche en bas permettent 
de se promener dans les différentes 
rubriques, pour écrire, modifier, ajou- 
ter à volonté. De même, le passage à la 
fiche suivante, ou précédente, s’obtient 
en pressant SHIFT flèche à droite ou 
SHIFT flèche à gauche. Ainsi, la com- 
mande E fait-elle office de saisie et de 
modification, tout à la fois. Cependant, 
il est encore possible d’éditer une par- 
tie du fichier (commande A). Quand la 
saisie est achevée, il est de bon ton de 
trier alphabétiquement le fichier (com- 
mande Q), puis de passer dans le menu 
secondaire, qui regroupe les comman- 
des d'impression. 


Treize manières 


d'imprimer 


Treize commandes d'impression sont 
disponibles, et il serait fastidieux de les 
énumérer toutes (photo 2). Pour résu- 
mer, les sorties habituelles sont là : tout 
le fichier, entre deux bornes numériques 
ou deux bornes alphabétiques, tout ou 
partie des rubriques pour chaque fiche. 
J’ai trouvé un « truc », au sujet duquel 
la notice reste muette : habitué à d’au- 
tres bases de données, j’ai naturellement 
utilisé l’astérisque(x) pour abréger les 
clés de recherche. Par exemple, la con- 
signe Rx, puis Z, ordonne de lister tou- 
tes les fiches, de R à Z. Ça marche ! 


Là où Superbase devient franchement 
intéressant, c’est la possibilité de l’em- 
ployer en « mailmerge », c’est-à-dire 
fabriquer les fameuses lettres personna- 
lisées qu’on retrouve parfois dans nos 
boîtes aux lettres. Pour cela, Superbase 
possède un mini-traitement de texte 
(éditeur pleine page), pour confection- 
ner la missive. Aux endroits appropriés, 
l'utilisateur place les numéros de rubri- 
que, correspondant aux données qu’il 
désire insérer (par exemple, 01 pour le 
nom, 02 pour le prénom, etc.). 


Raffinement supplémentaire, le suf- 
fixe dollar ($) provoque l’insertion au 
mieux, c’est-à-dire en calculant l’espace 
nécessaire, sans tenir compte de la tota- 
lité du champ défini, lors de la création 
du masque de saisie. Cela fait plus natu- 
rel, dans le texte. Il est possible égale- 
ment de fixer la longueur du champ 
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DRinamic SUPER-BASE V2.4 MDCR 


L Load a file 

: . a file 
ile definition e 
Enter and screen set-up 


Yransforn the file 
Control 
3 Return to BASIC 


LD 


Menu principal 


d’insertion (équivalent de PRINT 
USING), par la syntaxe O1.......... O1. 
Cela signifie : insertion du champ O1 (le 
nom, en général), avec un cadrage de 10 
caractères (le nombre de points définit 
la consigne de cadrage). Enfin, une série 
de commandes additionnelles permet 
d’insérer dans le texte les codes de con- 
trôle habituels des imprimantes Epson 
(taille des caractères, type d'impression, 
espacement de ligne, souligné, etc.). 


Quand ce travail est prêt, il suffit de 
revenir au menu d’impression, et de 
choisir un intervalle, dans le fichier de 
données, pour provoquer l’impression 
des textes personnalisés. Comme cette 
action effectue de facto une recherche 
dans le fichier, le concepteur du logiciel 
a prévu une astuce, bien utile à l’usage : 
la commande X permet la sortie du 
fichier sélectionné, non pas sur l’impri- 
mante, mais directement dans un tam- 
pon d’édition. A la fin de l’affichage sur 
l'écran, ce tampon est automatiquement 
sauvé sur mémoire de masse. Très pra- 
tique, pour extraire des fichiers triés, du 
fichier principal. 


A l’usage, Superbase se révèle perfor- 
mant et agréable à utiliser. Le pro- 
gramme est correctement protégé con- 
tre les erreurs de manipulation (la créa- 
tion de masque de saisie détruisant le 
fichier courant, une confirmation est 
demandée). En cas de situation déses- 
pérée : un RESET. Puis CALLM#400 
revient au niveau du premier menu, sans 
perte des données. 


Le logiciel en quelques lignes 
Nom : Superbase 

Ordinateurs : Dai PD et DaiT 

Auteur : Uwe Wienkop 

Édité par: DAlnamic Club Belgique 
{Mottaart 20, B-3170 Herselt, Belgique) et 
DAlnamic Club France (9 rue Lavoisier, 
59140 Dunkerque) 

Prix public : 240 FF 
Principale orientation : base de données 
Autres orientations : mailmerge, sorties 
formatées, courrier personnalisé 
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Le seul point contestable concerne la 
documentation, fournie avec le logiciel. 
La notice, en anglais, est sommaire et 
contient des erreurs. J’ai vérifié : le 
texte en flamand (!) ne vaut guère 
mieux. Par exemple, les adresses per- 
mettant de modifier les couleurs de l’af- 
fichage à l’écran sont erronées. Un petit 
coup de désassembleur m’a permis de 
m'y retrouver assez facilement, mais, 
pour faire cela, il faut bien connaître la 
machine. Voilà donc les bonnes adres- 
ses : la couleur de fond de texte se 
trouve en #2843, celle des lettres en 
#2844, Le fond et les lettres des entrées 
clavier sont colorés respectivement par 
les codes situés en #2845 et #2846. 


Dernier détail agaçant, le programme 
convertisseur des fichiers d’anciennes 
bases de données (tableau Basic alpha- 
numérique) est à configurer. Là non 
plus, la notice ne donne pas de rensei- 
gnements. Heureusement, Converter est 
écrit en Basic. L'utilisateur devra lister 
la partie située en 50000, pour modifier 
les pointeurs à sa guise (nombre de 
rubriques de l’ancien fichier, comptage 
à partir de 0, ou à partir de 1, etc.). A 
signaler, aussi : Superbase configure 
automatiquement le clavier en mode 
minuscules, au passage dans le menu 
principal. Cela part d’un bon sentiment, 
et on peut aimer. Moi pas. 


Alain MARIATTE 
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LEE 


CRYPTOGRAPHIE 


"ÉQUILIBRE précis des six faces d’un dé, livré à 
l'imprévisible complexité des mouvements de 

la main qui le lance, illustre parfaitement la 
rencontre un peu merveilleuse du « même » et de 
l'« autre », source de toute la fascination des jeux 
de hasard. Maïs si telle est l’image qui vient à 
l'esprit quand on parle de générateur aléatoire, on 
risque d'être déçu : rien d'aussi poétique n’entre 
dans ce domaine où ce qui semble imprévisible est 
en fait parfaitement déterminé. 


Pour générer des nombres aléa- 

toires sur ordinateur, on parle sou- 
vent de « générateur aléatoire ». Ce 
terme cache en fait des « fonctions 
génératrices de nombres pseudo- 
aléatoires ». Les nombres générés sont 
parfaitement déterminés en fonction 
d’un ensemble très restreint de données 
initiales. Ils ne restent imprévisibles que 
dans la mesure où l’on ignore tout ou 
partie de ces données. 


La qualité essentielle recherchée par 
les concepteurs des algorithmes corres- 
pondants était la régularité de la distri- 
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bution statistique des résultats. Nous 
donnerons la préférence à la difficulté 
de remonter aux données initiales, dif- 
ficulté qui conditionne l’emploi des 
résultats comme clefs de chiffrement. 
Sans être formellement liées, ces deux 
caractéristiques vont fort heureusement 
de pair. 


Il n’en va pas forcément de même, a 
priori, de la simplicité des formules et 
de la rapidité des calculs, deux contrain- 
tes tout aussi impératives aux yeux des 
informaticiens. On leur doit en tous cas 
d’avoir refermé l’éventail des solutions 


EE 


DÉMONTER 
LE HASARD 


acceptables à tel point que la grande 
majorité des générateurs en service 
n’utiliserait finalement qu’un seul et 
même algorithme, dit de « congruence 
linéaire » : X, = (a X,_,+c) MOD m. 


Le hasard 


et l'heure qu'il est 


Dans cette formule : 

. m est généralement lié à la longueur 
k du « mot » de l’ordinateur (m = 2*, 
ou m = 2* +1, par exemple) ; 

e a, habituellement compris entre 0.1m 
et 0.9m, est soumis à certaines restric- 
tions ; a MOD 8 = 3 ou 5, par exem- 
ple, sim = XX; 

e c doit seulement être premier avec m ; 
e la graine X, peut être soit introduite 
par l’utilisateur si ce dernier veut initia- 
liser une séquence reproductible, soit 
initialisée par l’ordinateur qui donnera 
à X, une valeur fixe à chaque RUN, 
soit au contraire, calculée à partir de 
l’heure de l’horloge interne. Dans ce 
cas, la valeur est dite aléatoire. 


Pour améliorer la protection du secret 
des clefs principales, on ne recourt à un 
générateur de ce type que pour créer une 
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CRYPTOGRAPHIE 


ou plusieurs séquences de nombres qui 
vont constituer les véritables générateurs 
de clefs particulières par l’intermédiaire 
d’un autre type d’algorithme, additif 
cette fois : Xa = (Xn-a + Xn-r) MOD 
m, avec a <b. Seuls certains couples 
(a,b), tels que (24,55) ou (27,98) par 
exemple, donnent des séquences de 
période maximale égale à 2?. 

Si l’on opère sur des « entiers », entre 
— 32768 et + 32767, on adoptera de pré- 
férence l’algorithme voisin : X,1 = 
X5-a XOR X,-t qui fonctionne avec 
les mêmes couples (a,b). 


XOR : une drôle 


d'exclusivité 


Ouvrons une parenthèse au sujet de 
l’opérateur XOR, qui tire son nom du 
« ou exclusif » entre deux variables 
booléennes. Sur des nombres exprimés 
en binaire, XOR effectue une addition 
chiffre à chiffre sans retenues. 


Pour trouver une documentation sur 
ces générateurs aléatoires il a fallu 
recourir à la « bible » de Knuth (The 
Art of Computer Programming, vol 2). 


Le programme de chiffrement pré- 
senté ici (écrit sur un PX-8) reprend les 
principes des programmes déjà publiés 
dans LIST (1), avec transposition enca- 
drée par deux substitutions. Ce pro- 
gramme diffère de celui publié dans le 
numéro 9 par le calcul beaucoup plus 
sophistiqué des clefs particulières. 


L’algorithme de création des généra- 
teurs de clefs se présente sous la forme : 
X, = (a Xn-1 + Z) MOD m avec m = 
1016, a = (108 + 1) W, X = 10 U + 
V. Ici, U, V, W et Z sont des entiers 
de 8 chiffres, avec W MOD 20 = 1,et 
Z premier avec 10. 

La forme particulière du multiplica- 
teur facilite et accélère les calculs en 
multiprécision. 

Pour éviter tout risque de répétition 
accidentelle, les nombres U et V sont 
calculés à partir d’une clef principale 


(1) Dans LIST 5, page 28, avec des programmes 
pour X-07 ; dans LIST 9, page 44, avec un pro- 
gramme pour PX-8. 
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X, de 16 chiffres, de la date et de l’heure 
à la seconde près, et de la longueur du 
message. Seul ce calcul préliminaire est 
confié au RND de l’ordinateur. 


L’algorithme défini là sert à calculer 
deux séquences, l’une de 71 et l’autre de 
73 entiers, stockées dans les tableaux 
Gi) et H(i). Ces séquences sont cons- 
tamment renouvelées grâce aux algo- 
rithmes : G(M) = G(M-36) XOR 
G(M -71) et H(N) = H(N —-42) XOR 
H(N — 73), dont on trouvera des équi- 
valents cycliques, lignes 270 et 280. Les 
clefs particulières sont définies par 
G(M) XOR H(N). 

La préparation de ces séquences 
entraîne deux temps morts d’une ving- 
taine de secondes, l’un avant et l’autre 
aussitôt après la saisie des textes (clair 
ou crypto). Celle du clair s'effectue au 
moyen d’un LINE INPUT, ce qui per- 
met de taper à loisir, et de corriger le 
cas échéant, des blocs de 255 caractères 
au plus. Celle du crypto, par 


Exemple d'exécution 


Au fil du programme 


Lignes 100 à 140 : initialisation et 
choix (chiffrer/déchiffrer) 
Lignes 150 à 210 : chiffrement 
e calcul du groupe date.heure Y (150) 
création du générateur de clefs n° 1 
(160) 
. entrée du clair (170) 
. codage numérique et substitution n° 1 
(180) 
e fin de saisie, création du générateur 
n° 2 (190) 
. transposition et substitution n° 2 (200) 
e impression du crypto (210) 
Lignes 220 à 280 : sous-programmes 
communs 
. création de générateurs de clefs (220 à 
240) 
e substitution n° 1 (250) 
e transposition (260) 
« génération des clefs (270 et 280) 
Lignes 290 à 350 : déchiffrement 
e initialisation, création du générateur 
n° 2 (290 et 300) 
< saisie contrôlée du crypto (310) 
transposition, substitution n° 2, créa- 
tion du générateur n° 1 (320) 
. substitution n° 1 (330) 
° décodage alphabétique (340) 
e impression du clair (350) 
Ligne 360 : ligne DATA 


Clefs : W = 45678901, X = 1234567891234567, Z = 87654321 


26082015 32 


88BA AFC8 8B96 83F2 D263 42D6 9A2A A296 60A3 A7C7 94B8 81C2 64AD 4C62 
AEBA 49D9 261B F70B C6AC C969 F75E 4BE2 5468 4F45 E690 3A80 9C6D 8E3F 


9920 SAOD 5S8AA B930 
L'ESSENTIEL EST DE PROTEGER LE SECRET DES CLEFS, SI UNE 
METHODE DOIT RESTER SECRETE, C'EST QU'ELLE EST 


MAUVAISE. 26082015 32 


INPUTS$(4), n’accepte que des groupes 
de quatre chiffres hexadécimaux. 


Pour des raisons de facilité de 
démonstration, la version proposée sup- 
pose une transmission du crypto sous 
forme écrite. Ce système sera beaucoup 
plus commode à utiliser si le crypto reste 
sous forme binaire, qu’il soit stocké sur 
cassette ou disquette, ou transmis direc- 
tement par fil. Le programme doit alors 
être modifié en fonction de l’environ- 
nement. L'économie de 40 % environ 
en nombre d’octets par rapport au texte 
clair prend alors tout son intérêt. 


L’ensemble du système peut paraître 
excessivement compliqué. Tenter 
d’écrire en Basic un équivalent du Data 


Encryption Standard (DES) d'IBM per- 
mettrait sans doute de réviser ce juge- 
ment : en gros, le chiffrement de cha- 
que bloc de 64 bits se traduit, avec la 
DES, par un millier d’opérations élé- 
mentaires variées, comportant de sub- 
tils « effets d’avalanche », chaque bit 
dépendant de tous les autres et pouvant 
à son tour les modifier. 


Si vous pensez que le système proposé 
reste trop peu hermétique, et si vous 
entrevoyez une méthode d’attaque, 
autre qu’un essai exhaustif des clefs, 
n’hésitez pas à nous en faire part. 


Pierre BARNOUIN 
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Cryptographie sophistiquée 
Programme pour PX-8 
Auteur Pierre Barnouin 
Copyright LIST et l’auteur 


100 DEFSTR A-D:DEFINT E-M:DEFDBL S-Z:DEF FN A=RIGHT$("000"+HEXS8(F) ,4) 
110 S=100000000#:DEF FN T(X)=X-SxINT(X/S):DEF FN K(X)=INT(2xPxX/S)-P 
120 CIS:DIM G(72),H(72):PRINT'"'Préparer l'imprimante":P-32768! 

130 D="AAACDEILMNORSTU BFGHJKPQVWXYZ(,.:'/?-)0123456789":INPUT'"Clefs":w,X,Z 
140 PRINT"O-Chiffrement, 1-Déchiffrement":IF VAL(INPUT$(1)) THEN 290 

150 C=TIMES$:Y-VAL(MIDS$S(DATES, 4,2) +LEFT$(C,2)+MID$(C,4,2)+MID$(C,7)) 

160 U-=X/Y:GOSUB 220:DIM F(2500):CLS:FOR I=-1 TO 4:READ A:PRINT A:NEXT 

170 LINE INPUT;"*x";C:FOR J=1 TO LEN(C):E=INSTR(D,MID$(C,J,1)) 

180 IF E=0 THEN BEEP ELSE B-B+HEX$(E-1):1F LEN(B)>3 THEN GOSUB 250 


190 NEXT:IF C>"" THEN 170 ELSE B-B+"FFFF":GOSUB 250:U-XxY/L:GOSUB 220 
200 LPRINT Y,L:FOR 1-0 TO L-1:GOSUB 260:F=G(M)XOR H(N)XOR F(I) 
210 LPRINT FN A+" ‘“";:NEXT :RUN 


220 U=INT(SxRND(-U)):V=INT(SxRND):FOR I1:0 TO 72 
230 U=FN TCWx (U+V)+INT(VxW/SDD:V=FN T(WxV+Z) 


240 G(I)=FN K(U):HC(I)=-FN K(V):NEXT:M-=-0:N-0:GOTO 270 

250 F(L)=-G(M)XOR H(N)XOR VAL("&H"+LEFT$(B,4)):B=MID$(B,5):L-L+1:GOTO 270 
260 GOSUB 270:K=I1+ABS(G(M)XOR HC(N))MOD(L-I):SWAP FCI) ,F(K) 

270 M=(M+1)MOD 71:G{(M)=G(M)XOR G((M+35)MOD 71) 


280 N=(N+1)MOD 73:H(N)=H(N)XOR H((N+31)MOD 73): RETURN 

290 INPUT"Date.heure, Longueur";Y,L:DIM F(L),J(L):U-=Xx*xY/L:GOSUB 220 
300 FOR 1-0 TO L-1:F(I)-I:NEXT:PRINT"Taper le crypto":FOR I=0 TO L-1 
310 B=INPUT$(4):F=VAL("&H"+B)D:IF B<>FN A THEN BEEP:GOTO 310 


320 PRINT B+" ";:GOSUB 260:J(F(1))-G(M)XOR H(N)XOR F:NEXT:U-X/Y:GOSUB 220 

330 FOR I-0 TO L-1:F-G(M)XOR H(N)XOR J(I):GOSUB 270:C-C+FN A:WHILE LEN(C)>1 
340 E=2+(C<"1")+(C>"3"):K-VAL("&H"+LEFT$(C,E)):C-MID$(C,E+1) 

350 LPRINT MID$(D,K+1,1); :WEND:NEXT:LPRINT Y,L:RUN 

360 DATA "Taper le texte par blocs de 255 caractères max.'","MAJUSCULES, ESPACE, 
CHIFFRES où SIGNES (.,:'/?7-)","Autres caractères pas pris en compte et signalés 
par BEEP","Après le dernier bloc, retaper un <RETURN:" 
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$ OUS le vocable de BAM se dissimule un 
élément fondamental pour la gestion des 
disquettes : la ‘Block Availability Map”, ou carte 
des blocs disponibles. Vous avez la carte, voici 
donc une boussole : ne perdez pas le Nord. 


Sur les disquettes de Commodore, 

la carte des blocs disponibles 
(BAM) est placée sur la piste 18 où elle 
occupe le secteur numéro 0. Lorsqu'une 
disquette est mise en place dans le lec- 
teur, c’est à cet endroit que se place 
immédiatement la tête de lecture pour 
y trouver une quantité de renseigne- 
ments dont le système a besoin pour 
gérer physiquement le contenu de la dis- 
quette. 


Le formatage 


consomme des secteurs 


Vous savez, bien sûr, que, lors du for- 
matage, les disquettes sont découpées en 
35 pistes concentriques, elles-mêmes 
partagées en un nombre variable de sec- 
teurs (de 21 à 17 selon la piste). Au 
total, il existe 682 secteurs sur une dis- 
quette, dont 664 sont libres pour stoc- 
ker vos propres données (d’où le ‘‘664 
blocks free’’ du catalogue d’une dis- 
quette fraîchement formatée). La diffé- 
rence entre les deux nombres corres- 
pond au nombre de secteurs de la piste 
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18 que le système réserve pour son pro- 
pre usage. Ces blocs réservés contien- 
nent d’une part le catalogue de la dis- 
quette et d’autre part la table des blocs 
libres. C’est elle qui nous préoccupe 
aujourd’hui. 


La nécessité impérieuse de la présence 
d’une telle table est évidente si l’on réflé- 
chit au processus d’une écriture sur dis- 
quette. Si la tête d'écriture se position- 
nait où bon lui semble pour inscrire les 
données à destination de la disquette, il 
y a fort à parier que le résultat serait 
désastreux. La relecture correcte d’un 
fichier enregistré dans de telles condi- 
tions relèverait de la chance la plus 
inouie ! Dieu merci, la BAM est là pour 
diriger l’organisation des opérations, et 
le système y fait référence à chaque 
accès en écriture. 


A l'écriture d’un programme sur la 
disquette, c’est la BAM qui indique 
quels blocs sont restés disponibles. Le 
système dirige la tête d’écriture vers ces 
blocs où les données sont alors transfé- 
rées. À l'issue de ce travail, de nouveaux 
blocs se retrouvent donc occupés, qui ne 
l’étaient pas auparavant. Aussi, la tête 
d'écriture se dirige-t-elle à nouveau vers 
le secteur BAM pour en modifier le con- 
tenu qui doit être remis à jour. 


DE LA BAM 


Inversement, lorsque vous décidez de 
détruire un fichier présent sur la dis- 
quette, les blocs occupés se retrouvent 
libérés : la BAM en est aussitôt infor- 
mée, en même temps que le catalogue 
se trouve remis à jour. 


Quand l'utilisateur 


décide 


Enfin, la remise à jour de la BAM 
peut être forcée par une décision éma- 
nant de l'utilisateur : la commande 
VALIDATE (ou COLLECT du Basic 
4.0) est destinée à recréer une BAM 
d’après l’analyse des secteurs successifs 
de la disquette. En fait, la tête de lec- 
ture ne passe pas son temps à lire et 
écrire sur la BAM : son contenu est 
mémorisé dans une zone mémoire du 
lecteur, et c’est cet espace qui est remis 
à jour, et transféré quand c’est néces- 
saire sur la disquette. Ouf, merci 
l'usure ! C’est d’ailleurs ce qui explique 
la nécessité du CLOSE, car cet ordre 
provoque le transfert sur le bloc BAM. 
Un CLOSE oublié, la BAM n'est plus 
à jour, et les données sont quasi- 
perdues ! 


La commande “‘1:”” (Iñitialise) a enfin 
pour effet de provoquer une lecture de 
la BAM, avec enregistrement de son 
contenu dans la mémoire du lecteur de 
disquettes. 


La figure 1 représente le contenu 
hexadécimal de la BAM de deux dis- 
quettes. En haut, une disquette nouvel- 
lement formatée, et en bas une disquette 
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plutôt bien remplie. La comparaison des 
deux va nous fournir quelques éléments 
de base. 

Les 4 premiers octets de chaque BAM 
sont semblables. Les 2 premiers (ils ont 
été encadrés : 12 et 01) représentent en 
hexadécimal les numéros de piste et de 
secteur qui constituent la suite du bloc. 
I s’agit donc du catalogue (piste 18, 
secteur 1). 

L’octet suivant (cerclé) a pour valeur 
41. Il s’agit d’un signe de reconnaissance 
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grâce auquel le système identifie le for- 
mat de la disquette. La valeur 41 cor- 
respond au format type 1541. Le qua- 
trième octet (cerclé) contient 0 ; son 
usage est indéterminé. Ensuite, toute 
une série d’octets précède les codes 
ASCII du titre de la disquette (16 octets) 
et de son numéro d’identification 
(2 octets). C’est ce groupe de 140 octets 
qui constitue la carte des blocs. 


Comme l’indique le schéma, les octets 
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sont groupés par 4, chaque groupe défi- 
nissant l'occupation des blocs d’une 
piste. Il y a donc 35 groupes de 4 octets. 


Le premier représente la piste 0, le der- 
nier représente la piste 35. Au sein d’un 
groupe, le premier octet représente le 
nombre de blocs libres. La valeur 15 
(hexa) signifie que la piste en question 
contient 21 blocs libres. Le second octet 
est l’image des secteurs 0 à 7. Le troi- 
sième représente les secteurs 8 à 15. Le 
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EE # LITILITAIE 
RE %# 


n 


PRINT" 
PRINT 2 
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REM A Et LE 


D À D Eu 


GOT ex 


5 


FEFT AREA ARR ER ERRELIRE 


IHFLT# 1 
IF E 
RETURH 

CLOSE SsCLOSE 
EHO 


15 


quatrième concerne les secteurs 16 à 23 
(!) de cette même piste. 


Pour éclaircir cette situation, la 
figure 2 vous indiquera comment pro- 
céder. En tout état de cause, l'important 
est de remarquer qu’un secteur occupé 
se traduit par un bit à O, et qu’un sec- 
teur libre a pour reflet un bit à 1. 


Le programme que nous vous sou- 
mettons aujourd’hui vous permettra 
d’obtenir facilement sur l’écran une 
image complète de la BAM d’une dis- 
quette. La figure 3 constitue un exem- 
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ple de ce que vous pourrez obtenir. Si 
vous envisagez de réaliser l’affichage sur 
une imprimante, vous devrez le remo- 
deler assez sérieusement, en particulier 
aux lignes 480-520 car l'affichage se fait 
ici en colonnes successives. 


Peu d’explications sont nécessaires 
pour ce programme qui est suffisam- 
ment commenté par des REMarques. 
La seule astuce réside dans la ligne 240 
qui permet d’effectuer rapidement la 
recherche de la valeur d’un bit dans l’un 
des 3 octets lus. A l’affichage, les blocs 
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Utilitaire pour disquettes 
Commodore 

Auteur Jean-Pierre Lalevée 
Copyright LIST et l’auteur 
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libres sont visualisés par deux points € et 
les blocs occupés par un carré grisé. 


Le programme traite les octets du 
bloc BAM, puis le titre et l’ID de la dis- 
quette. Les octets 165 à 170 (qui sont 
encore un signe de reconnaissance du 
DOS) sont ignorés. Tous les octets sui- 
vants restent toujours à 0 : ils ne sont 
pas utilisés. Seules les unités de disquet- 
tes « professionnelles » Commodore les 
utilisent. 


Jean-Pierre LALEVÉE 
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PRÉCISION 


a 


 GÉNÉRATEUR 
DE LOGARITHMES A 
_ 50 DÉCIMALES 


ES logarithmes avec cinquante décimales 
des six premiers nombres premiers peuvent 
être calculés par un « gros » ordinateur. Les 
propriétés des logarithmes permettent alors de 
trouver ceux des nombres composés à partir de ces 
six nombres premiers. On conçoit ainsi une table 
incomplète, mais très précise. 


En partant de calculs effectués par 
un « gros » ordinateur (Hitachi), 
et en appliquant les propriétés des loga- 
rithmes, on va pouvoir créer une table 
de logarithmes à 50 décimales. Cette 
table sera incomplète : elle contiendra 
les logarithmes de tous les nombres 
composés à partir des six premiers nom- 
bres premiers (2, 3, 5, 7, 11 et 13). 
Les données de base du programme 
seront les valeurs des logarithmes à cin- 
quante décimales de ces six premiers 
nombres premiers. Les propriétés des 
logarithmes vont permettre de déduire 
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ceux des nombres composés à partir de 
ces six nombres premiers. En effet, a 
et b étant deux nombres positifs, on a : 
log (a xb)=log a x log b, et log (a?) = 
b x log a. Par exemple, on pourra trou- 
ver les 50 décimales de log 504 car 504 
= 2°x3°x7 et donc : log 504=3 log 2 
+ 2 log 3 + log 7. 

Le principe du programme est le sui- 
vant : on calcule une fois pour toutes les 
logarithmes des six plus petits nombres 
premiers (donc 2, 3, 5, 7, 11, 13) avec 
50 décimales. La combinaison par addi- 
tion de certains de ces logarithmes per- 


RC 


met d’obtenir le logarithme des nombres 
composés à partir de ces six nombres 
premiers. Si, de plus, on accepte de faire 
l'effort d’effectuer la multiplication 
d’un logarithme à 50 décimales par un 
nombre d’un seul chiffre, on obtient un 
nombre impressionnant de combinai- 
sons. Pour effectuer de tels calculs, il 
faut disposer — en plus des données de 
base — d’une table de multiplication et 
d’une procédure d’addition, toutes deux 
en multiprécision. C’est ce que réalise 
également le programme. 


Quelques mètres 


de papier... 


En fait, les choses se passent un peu 
différemment. Les entrées, c’est-à-dire 
les nombres dont les logarithmes sont 
calculés, sont imprimées avec un pas 
théorique de 0,01 sur une étendue de 1 
à 10, bornes exclues. 


Or les seuls nombres justiciables du 
procédé de calcul adopté sont ceux divi- 
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PRÉCISION 
G 


# 


EUR DE LOGARITHMES A 50 DÉCIMALES 


Log à 50 décimales 
Programme en Basic 


Auteur Pierre Ladislas Gedo 
Copyright LIST et l’auteur 


Analyse du programme 
* Première partie (lignes 10 à 65) : initialisation. 

Dans cette partie du programme sont stockés une fois pour toutes les nombres pre- 
miers 2, 3, 5, 7, 11 et 13 (lignes 10 à 15) et les logarithmes de 2, 3, 7, 11 et 13 (pour 
les deux derniers, plus exactement 1,1 et 1,3). Chacun de ces logarithmes est stocké 
sur six mémoires. Le logarithme de 2 est stocké (aux lignes 20 à 25) dans les mémoi- 
res A(27) à A(32). Ainsi, log 2 = A(27) + A(28) +...+ A(32). 

Il en va de même pour les autres nombres de base dont les logarithmes sont stockés 
aux lignes 30 à 35 pour log 3, 40 à 45 pour log 7, 50 à 55 pour log 1,1 et 60 à 65 
pour log 1,3. 

Notez que la valeur de log 5 a été omise, car on peut toujours la remplacer par 
1—log 2 et économiser ainsi de nombreux octets. On observera également que les loga- 
rithmes ont été calculés avec 55 décimales, alors que l’on ne doit en afficher que 50, 
les cinq dernières constituant une sécurité quant à l’exactitude de l’arrondi du cin- 
quantième et dernier chiffre imprimé. 


+ Deuxième partie (lignes 100 à 190) : détermination des nombres retenus et de leur 
structure. 

Le pointeur passe en revue tous les nombres Z de 100 à 1000 en ne retenant que 
ceux qui répondent au critère de divisibilité fixé. Le plus petit d’entre eux est 104 et 
le plus grand 990 (d’où la boucle de la ligne 100). Ils sont au nombre de 179. La table 
comportera donc 179 entrées, de 1,04 à 9,90, bornes incluses, variant de 0,01 en 0,01, 
mais avec de nombreux trous correspondant aux nombres non retenus. 

Les exposants de chaque facteur premier de Z sont calculés à la ligne 150 et sont 
stockés en mémoires A (7) à A (12) (boucle 120-160). 

Notez l'instruction G=G-—I (correspondant à A(7) = A(7)—A(9) sur les PC de Sharp) 
de la ligne 180. Elle réalise l’opération que nous avons évoquée plus haut à propos 
de log 5 : chaque exposant de 5 (en mémoire I), affecté du signe — (moins), est imputé 
à l’exposant de 2 (en mémoire Gj). Il s’ensuit que l’exposant de 2 peut être négatif, 
comme par exemple dans le cas de Z=125, où il est égal à —3, ce qui se justifie en 
observant que le logarithme de 5° ou celui de 2-? ont même valeur, si l’on s’en tient 
à leur mantisse. 

La variable I est donc abandonnée à la ligne 180 et la mémoire correspondante devient 
disponible pour la suite du programme (elle sera réaffectée en ligne 300). 

e Troisième partie (lignes 200 à 260) : calcul des logarithmes. 

Les additions et multiplications en quintuple précision sont exécutées en une seule 
ligne, la ligne 240. Le résultat est stocké en cinq mémoires (boucle 210-260), de R à 
V. Les additions s’effectuent comme à la main, de droite à gauche (donc de V à R), 
pour préserver le mécanisme correct des retenues. La retenue à ajouter à une tranche 
est en mémoire P, celle qui doit en être soustraite se trouve en mémoire Q (lignes 230 
et 250). L’arrondi de la dernière décimale est calculé en ligne 200. 

° Quatrième partie (lignes 300 à 380) : affichage. 

Les entrées sont imprimées avec deux décimales (ligne 310), les résultats en cinq 
tranches successives de 10 décimales (boucle 330-350), le dernier chiffre étant arrondi 
à la valeur la plus proche. Selon l’usage, si une tranche comporte moins de 10 chif- 


fres, elle doit être complétée par des zéros, à gauche du premier chiffre, à concur- 
rence de 10 chiffres. 


Séthidgis. HI: 94664 S4xE- 
+4 


DLRLRERET: 


HÉTHSISRET+G + 


G07G iéÿ 
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5 


Liste des variables Début de la table 


A(D) à A(6) : (A à F sur les PC de Sharp) LOG 1.84 = 
chacun des nombres premiers de 2 
à 13 
A(7) à A(12) : (G à L sur les PC de 
Sharp) exposants des facteurs pre- 
miers dans la décomposition du 
nombre à traiter, Z = 240 x 34@) 
x 540) x 74G0) x 11409 x 13402) 
A(27) à A(32) : valeur de log 2 stockée 25 1.45 = 
sur six mémoires (5 tranches de 10 


C'EST BEAUCOUP 
PLUS SIMPLE QUE 
VOUS NE SEMBLEZ 
L'IMAGINER! 


4 20%001x 
chiffres et une tranche de 5 chiffres) Fe 16 72998 . 
A(33) à A(38) : idem pour log 3 ii 1% 
A(39) à A(d4) : idem pour log 7 3345267 123% 
A(45) à A(50) : idem pour log 1,1 2554799155, 
A(51) à A(56) : idem pour log 1,3 1137995255. 


Z : suite pour les entiers consécutifs de 
104 à 990 55 1,85 = 
I = Z/100 
M à O : variables de calcul 
Q : retenue de la tranche en cours de 
traitement 
P : retenue de la tranche précédente 


…. sibles exclusivement par 2, 3, 5, 7, 11 
: ou 13. Ils sont naturellement entiers. Si 

. on les désigne par Z, c’est I=Z/100 qui 

de ne hp sera imprimé en entrée (dans notre 
mémoires (5 tranches de 10 chiffres) | -55 :.:4 = exemple, Z=504 et 1=5,04). On fera 


1] rs 


Da 


W à Y : compteurs de boucles 251 E : donc varier Z de 100 à 1 000 (bornes 
; 59 0754 exclues) et on ne retiendra que les Z 
2434 répondant au critère de divisibilité fixé, 

67, en imprimant en entrée les valeurs 


Z/100 correspondantes. 


:.... Nous reproduisons ci-contre le début 
de la table. 


La durée d'impression de la table 
complète est extrêmement variable 
d’une machine à l’autre. Dans le cas le 
plus défavorable, c’est-à-dire avec un 

- PC-1211, elle est d’un peu moins de 
trois heures. Maïs une ou deux dizaines 

de minutes devraient suffire avec une 
machine équipée d’un processeur 8 bits. 


… En tout état de cause, n’oubliez pas 
d’alimenter votre imprimante en quan- 
tité suffisante de papier. Avec un 

: PC-1211, il en faut environ 4 mètres 50, 
soit la longueur d’un rouleau complet, 

mais si vous disposez d’une imprimante 
de 80 colonnes, vous pouvez modifier 


+ 44 
si 


D'un Basic à l'autre 

Le programme tourne sur les Basic 
dont les variables numériques vont au 
moins de 1E-55 à 1E55, avec une préci- au 
sion de 10 chiffres significatifs. La liste Pie 
imprimée ici est celle d’un PC-1251 de 
Sharp. Une particularité de cet ordina- 
teur de poche (et de tous ceux de cette 
gamme) est de réserver la même place en 
mémoire pour les variables A(1) à A(26) 
que pour les variables A à Z. Aussi pour 
transposer ce programme à d’autres k 
Basic, il faudra remplacer A par A(1), B ja 1.28 = 


LH Or 4 —J 


par A(2), C par A(3), etc. | 7918124684, l'affichage pour imprimer chaque résul- 
. Et omis, But les FC-de Sharp, 11e 4762482772. tat sur une seule ligne, et consommer 
Hoite de simennonner Qi 1AbIeau, 16 2545692704. : moins d’un mètre de papier. 
Ai). C’est indispensable avec les autres 12627365 

3627119391. Pierre Ladislas GEDO 


j LE PRoGRES | | BON! JE VAIS POIRE UN 
ae PRGRES RAP SA ue 
| |[IROPÆLLERS LE Bow, 


Tu AS BESoOiNy > 
JE CIGARCITES 


TN WWLUS 


D 


Ë 
| 
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. PASCAL 


UNE MOULINETTE POUR 
LES ENTRÉES NUMÉRIQUES 


UAND l'utilisateur fait des fautes de frappe. 
il faut bien que le programme se charge 


de es corriger. C'est le rôle d’une courte routine, 
présentée ici en Pascal, que chacun pourra 


traduire dans son langage favori. 


Rares sont les personnes qui écri- 

vent différemment des caractères 
tels que la lettre O majuscule et le chif- 
fre 0. Dans une moindre mesure, c’est 
également vrai pour la lettre I et le chif- 
fre 1 qui font, mais quelquefois seule- 
ment, l’objet d’une distinction. 


Avec une machine à écrire, la diffé- 
rence est un peu plus sensible. Cepen- 
dant, il existe toujours certaines machi- 
nes dépourvues, par exemple, de chif- 
fres 0 et 1, ces derniers devant être rem- 
placés par les lettres O et I (pour des rai- 
sons d’esthétique, on préfère parfois le 
1 minuscule au I majuscule). 


Avec un ordinateur, la différence est 
très nette, puisque ces caractères sont 
différents, à la fois par leur représenta- 
tion et par le code interne. Hélas, cela 
n’empêche pas les nouveaux utilisateurs 
de systèmes informatiques de confon- 
dre certains caractères. Cette confusion 
est gênante, car les programmes ne par- 
donnent pas de telles erreurs, en parti- 
culier dans la saisie des valeurs numéri- 
ques. Pour que les logiciels soient d’un 
usage plus aisé, il est utile d’effectuer 
une conversion de tels caractères après 
toute entrée d’un nombre sous forme de 
chaîne. Ainsi, par exemple, la chaîne 
« 120.30 » doit être transformée en 
« 120.30 », ce qui permet d’accepter 
une donnée qui n’était pas valable au 
départ. 


La procédure qui nous permettra de 


repêcher ainsi certaines fautes de frappe 
est déclarée de la façon suivante : 


procedure correction (var valeur : 
string) ; 
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A l’appel de la procédure, la chaîne 
de caractères VALEUR doit contenir le 
ou les nombres à rendre conformes. Ce 
même paramètre retourne, après activa- 
tion de la procédure, la chaîne corrigée. 


Le premier travail effectué par la pro- 
cédure consiste à transformer les carac- 
tères qui font l’objet d’une confusion. 
Il s’agit des lettres O, I, Z, S qui sont 


Azerty ou qwerty 


Caractères 
pris en 
compte 


Clavier azerty 


caractères 


codes ASCII 


respectivement transformées en chiffre 
0, 1, 2 et 5. Le caractère du souligne- 
ment (__), quant à lui, est transformé 
en caractère moins (—). 


D'autre part, pour se conformer à 
la pratique française, le point décimal 
est systématiquement transformé en vir- 
gule décimale. 


Enfin, la procédure transforme aussi 
les caractères résultant d’une véritable 
faute de frappe. En effet, sur les claviers 
des ordinateurs, les chiffres sont sou- 
vent accessibles par l’intermédiaire de 
touches à double fonction, c’est-à-dire 
correspondant à deux caractères diffé- 
rents selon que la touche majuscule 
(SHIFT) est ou non enfoncée. Si cette 
touche n’est pas correctement enfoncée, 
l’autre caractère peut être pris en 
compte. La procédure rétablit donc le 


Clavier qwerty 


qe 


caractères codes ASCII 


N Nom Re © © 


| © — œu un = 


41 
79 
111 
33 
73 
105 
64 
90 
122 
35 
36 
37 
83 
115 
94 
38 
42 
40 
45 


| 46 


jm + > w SR S NN N®@- —-0 O— 


Correspondance entre les caractères non numériques et les caractères pris en compte 


par les deux procédures. 
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chiffre qui correspond au caractère tapé 
par erreur. 


Il faut toutefois remarquer qu’il 
existe plusieurs catégories de claviers. 
La plus répandue dans le monde est dite 
internationale, ou QWERTY car la pre- 
mière rangée de lettres y est composée 
des touches Q, W,E,R, T et Y. Ce type 


Correction automatique des entrées numériques 


Procédure Pascal 


Auteur Thierry Chamoret | 
Copyright LIST et l’auteur 


procedure correction (var valeur : string) 


end ; 


procedure correction (var valeur : string) 
var i : integer ; 
car: char ; 
begin 
for i : 
begin 


= 1 to length (valeur) do 


car : = valeur fi] ; 
if not (car in [0°..9° +”, —?]) 
then 
begin 
case car of 

y, °O?, ’o° : car : = ‘0? 
PS PL. HOT = "1 
‘@, 2, 2 car: = "2 
+ : car: = 3 
& ‘ °c: = "# 
200" 97, 5": Car = "5 
1? : car : = 6? 
"&' : Cari = 7 
x? : car : = ‘8’ 


: Car : 


WU 


se “Car: - 
: Car : ss 
end ; 
valeur [il] : = car 
end 


var i : integer ; 
car: char ; 
begin 
for i: = 1 to length (valeur) do 
begin 
car : = valeur fi] ; 
if not (car in [0°..9° +, —?]) 
then 
begin 
case car of 
’à’, 0’, LP] çar = 0’ 
"&'; a LA *j” çar = ci 1 
é’ 2; 2 car _— 2? 
ss car : = 3 
Fi 2) car = 4? 
A, S’s 6? car = 35? 
”$ car : = ’6’ 
1 car: = 7 
a 4 car : = 8 
”ç car : = 9 
a car: = ’— 
HU car: =? 
end ; 
valeur [il] : = car 
end 
end 


Version azerty 


, 


Version qwerty 


, 


de clavier ne comporte le plus souvent 
que les caractères définis par la norme 
ASCII (American Standard Code for 
Information Interchange). 


Une seconde catégorie de claviers est 
couramment rencontrée sur les machi- 
nes à écrire de l’hexagone, elle est dite 
nationale ou AZERTY. Ces claviers 


ca 7 


| AZERTY XIV | 
Ciel pee l 


] QuERTy I | 
| (coll. Remin g£on)| 


possèdent les caractères spécifiques à la 
langue française tels que les lettres 
accentuées (à, é, à, à), le tréma et le cir- 
conflexe, le ç dit cédille et d’autres 
symboles encore comme celui du para- 
graphe ($) et de la livre (£) qui rempla- 
cent certains caractères internationaux. 


Comme la disposition des touches 
n’est pas la même selon la catégorie du 
clavier, on aura recours à deux traite- 
ments différents. C’est pour cela que 
nous avons proposé deux procédures 
distinctes, l’une associée aux claviers 
QWERTY, et l’autre aux claviers 
AZERTY. Bien entendu, il existe plu- 
sieurs variantes de claviers AZERTY ou 
QWERTY. Au besoin, on modifiera le 
sous-programme en conséquence. 


Ces procédures réalisent une boucle 
sur tous les caractères de la chaîne qui 
est passée en paramètre. Afin de réduire 
la longueur du code, le caractère en 
cours de traitement est mémorisé dans 
la variable CAR, ce qui permet de ne 
pas faire référence à un élément de 
tableau chaque fois qu’une affectation 
ou un test est réalisé. 


Tester l'entrée 


dans la conversion 


Un premier test permet de n’entrer 
dans la partie de conversion du carac- 
tère que si celui-ci est autre qu’un chif- 
fre ou un signe valide. 


Il faut noter que certains compila- 
teurs acceptent mal le CASE tel qu’il est 
écrit ici, car tous les cas possibles n’ont 
pas été prévus. Pour de tels compila- 
teurs, il est indispensable de placer, juste 
avant chaque instruction case car of, le 
test : 

if car in autorises then 

où AUTORISES est un ensemble 
mémorisant tous les états qui ont été 
prévus dans le cas. On résout ainsi le 
problème occasionné par les compila- 
teurs strictement conformes au Pascal 
défini par Wirth (ces compilateurs, soit 
dit en passant, se font de plus en plus 
rares). 


Il faut prendre garde, lorsqu'un pro- 
gramme utilise une telle procédure, 
qu’elle soit bien appelée à chaque entrée 
d’une valeur numérique, faute de quoi 
le logiciel manquerait d’homogénéité et 
pourrait être la cause d’erreurs de sai- 
sie non détectées. En contrepartie, si 
cette procédure est bien utilisée, il 
devient possible, en quelques instruc- 
tions, de rendre les logiciels plus souples 
et plus agréables d'emploi. 


Thierrÿ CHAMORET 
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LE BASIC DU 
SHARP PC-1550 


sort un nouveau p. 


1e le constructeur japonais 

té le tout premier ordinateur 
ble en Basic, le PC-1211, 

, ce fut le Sharp PC:1500 
inégalée pour un 

epuis, régulièrement, Sharp 
quette : PC-1212, 1251, 1261, 


1401... et enfin PC-1350 offrant ainsi une large 


gamme de Basic de poche. 


Le 1350 est à peine plus volumi- 

neux que son ancêtre 1211 mais il 
incorpore un « grand » écran à cristaux 
liquides de 4 lignes de 24 caractères pour 
une définition graphique de 150 x 32 
points. Le clavier est bien un peu étri- 
qué, mais qu’attendre d’un clavier de 
poche ? Assez complet, il possède un 
pavé de touches numériques et regroupe 
ensemble, enfin, toutes les touches 
d'édition. 

L'éditeur, c’est l'interface utilisa- 
teur ; la manière d’écrire, de vérifier et, 
éventuellement, de corriger les lignes 
d'un programme comme d’un calcul 
direct. De sa qualité dépendent le con- 
fort d'utilisation et la facilité d’appren- 
tissage du fonctionnement de 
l'ordinateur. 


Traditionnel chez Sharp, l’éditeur du 
PC-1350 est très souple d'emploi bien 
que souffrant encore de quelques caren- 
ces, Quand un programme Basic est en 
mémoire, on déplace l’écran sur ses 
lignes avec les touches de défilement 
vertical : ? et |. Pour modifier le con- 
tenu d’une ligne, on l’amène en haut de 
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l'écran et son édition débute sur pres- 
sion de l’une des touches de déplace- 
ment horizontal : — et +. 


S’agissant d’un programme, le cur- 
seur clignotant est amené à l’endroit de 
la correction où l’on pourra insérer 
(INS), détruire (DEL) ou écrire de nou- 
veaux caractères. Notons enfin que sur 
un ordinateur de poche, INS et DEL 
sont d’un accès direct, mais, cependant, 
pas encore à répétition. Seules les tou- 
ches de déplacements horizontal et ver- 
tical du curseur sont répétées en cas de 
pression prolongée. Deux fonctions 
d'édition permettent la mise en place 
instantanée du curseur en début ou en 
fin de la ligne en cours d’édition. 

L'espace n’est pas significatif pour 
l'éditeur du 1350. Si un espace est auto- 
matiquement affiché après chaque mot 
clef du Basic reconnu par l’éditeur, ce 
n’est que pour en faciliter la relecture. 
Les lignes Basic sont optimisées en 
mémoire dès leur introduction : sup- 
pression de tout caractère d’espace 
superflu, compactage sur un seul octet 
des caractères composant un mot Basic. 


Ainsi peut-on abréger les mots clefs du 
Basic : P. pour PRINT, PO. pour 
POKE, etc., car l’éditeur les reconnaf- 
tra immédiatement et les affichera en 
toutes lettres (après ENTER). 


Ouvert au 


langage-machine 


Chaque ligne peut contenir jusqu’à 82 
octets (où chaque fonction, quel que 
soit le nombre de lettres de son nom, 
occupe 1 octet ; chaque signe, chiffre ou 
lettre, compte pour un octet ; le numéro 
de ligne pour 2 octets ; enfin chaque 
ligne comporte 2 octets de contrôle : sa 
longueur et le code d'ENTER). Ceux 
que la bidouille intéresse pourront débu- 
ter l’étude de la mémoire interne du 
PC-1350 avec PEEK à l’adresse 24625 
(&6031), celle du premier octet des pro- 
grammes Basic. On notera avec satisfac- 
tion la présence des instructions PEEK, 
POKE et CALL utiles à la manipulation 
directe de codes dans la mémoire de 
l’ordinateur et à l’exécution de pro- 
grammes en langage-machine. On utili- 
sera pour cela le manuel du langage- 
machine du PC-1251 disponible auprès 
du Club des sharpentiers. 


On ne dispose malheureusement ni 
d’une fonction AUTO (numérotation 
automatique des lignes), ni d’un 
RENUM (renumérotation des lignes et 
des GOTO/GOSUB...), ni, enfin, d’une 
fonction DELETE qui permettrait la 
destruction d’un bloc entier de lignes du 
programme. 


L'éditeur intervient aussi dans les cal- 
culs directs effectués avec le PC-1350, 
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comme s’il s’agissait d’un simple calcu- 
lateur. On écrit le calcul à réaliser, en 
utilisant n’importe lesquelles des fonc- 
tions scientifiques du Basic, et sur pres- 
sion de la touche ENTER s'affiche le 
résultat. On pourra rééditer par sa 
droite ou sa gauche l’expression calcu- 
lée en pressant une touche de déplace- 
ment horizontal du curseur (— ou +) 
ou même récupérer le résultat du der- 
nier calcul effectué sur simple pression 
de T ou |. 


Si l’éditeur ne limite pas la longueur 
des noms des variables, seuls les deux 
premiers caractères sont significatifs. 
On pourra, par exemple, écrire : 
TAUX=1.186, mais pas simultané- 
ment : TARIF = 1460.20, car ces deux 
variables ne seraient en fait qu’une seule 
et unique : TA. La précision des calculs 
demeure bonne bien qu’il n’existe qu’un 
seul type de variable numérique : 
10 chiffres sont conservés mais tous les 
calculs sont réalisés sur 12 chiffres afin 
de tenir compte des arrondis. Cela peut 
sembler insuffisant, cependant, le 
système est très fiable et rivalise large- 
ment avec celui d’autres Basic (comme 
le Basic Microsoft, par exempie). 


On stockera jusqu’à 7 caractères dans 
les variables alphabétiques AS à Z$ con- 
tre 16 dans les variables dont le nom 
comprend au moins deux lettres telle 
AAS. On pourra aussi déclarer, avec 
DIM, des tableaux de chaînes alphabé- 
tiques dont les variables auront une 
capacité déterminée (jusqu’à 80 carac- 
tères) : DIM AS$(5)*80 crée six variables 
A$(0) à A$(5) d’une capacité de 
80 caractères. 


Le traitement en Basic des chaînes de 
caractères se réalise grâce au jeu stan- 
dard d'instructions : CHRS (conversion 
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ES 


d’un code ASCII en caractère), ASC 
(conversion inverse), STR$ (conversion 
d’un nombre en chaîne de caractères, 
VAL (conversion inverse), LEFTS$ 
(extraction de la partie gauche d’une 
chaîne, MID$ (de sa partie centrale), 
RIGHTS (...de sa partie droite) et LEN 
(calcul de la longueur d’une chaîne). 


Les tableaux de variables auront une 
ou deux dimensions : par exemple DIM 
A(10) ou DIM A(2,5). Les 26 variables 
À à Z ne peuvent être à la fois numéri- 
ques et alphabétiques (!}: si l’on 
emploie la variable A, son pendant 
alphabétique A$ n’est plus disponible et 
sa sollicitation telle que PRINT A, 
provoquerait une erreur. En revanche, 
il suffit d’affecter à A$ un nouveau con- 
tenu pour qu’aussitôt il remplace l’an- 
cienne valeur de A (qui devient à son 
tour inaccessible, etc.). Enfin, notons 
qu’un ordre RUN de lancement d’un 
programme n’efface pas les contenus de 
ces 26 variables alphanumériques. 


Un Basic 
à étiquettes 


Avec les fonctions de référence à une 
ligne de programme (GOTO, GOSUB, 
RESTORE, etc.) on atteint presque le 
grand rêve de modularité des program- 
mes Basic. En effet, non seulement ces 
instructions peuvent adresser directe- 
ment des lignes de programme par l’in- 
termédiaire de leurs numéros (GOTO 
100), comme indirectement par le cal- 
cul (GOTO A*100 + 10), mais aussi de 


Basic, système, interfaces 
intégrées, 40 Ko de mémoire morte 


manière totalement paramétrée à l’aide 
d'étiquettes alphanumériques. Une telle 
étiquette est un nom, long de 76 carac- 
tères au plus, écrit entre guillemets en 
début d’une ligne. On pourra toujours 
accéder à cette ligne grâce à son nom : 
GOTO « PROGRAMME I » (d’ail- 
leurs, le GOTO réduit la longueur utile 
des étiquettes à 75 caractères), 


Les étiquettes longues d’un seul 
caractère (si ce dernier appartient aux 
touches des deux rangées inférieures du 
clavier) pourront aussi servir de point 
d’entrée direct dans un programme : 
DEF Z lance directement le programme 
à sa ligne étiquetée « Z », si elle existe. 
Dans le mode RESERVE de fonction- 
nement, on pourra aussi programmer 
ces mêmes touches, leur assigner des 
fonctions spéciales jusqu’à concurrence 
de 144 octets. Ainsi, la pression ulté- 
rieure de SHIFT ‘touche’ correspondra 
à l’exécution des fonctions qui y sont 
assignées. On mémorisera donc les 
séquences de calcul ou ordres Basic fré- 
quemment employés afin d’y accéder 
plus rapidement. 


Dans le domaine des boucles 
FOR...NEXT, le PC-1350 est plus sou- 
ple que ses frères ordinateurs car il 
admet des conditions de variation moins 
strictes : FOR I1=1 TO 1000000 STEP 
0.1 est parfaitement correct. La sou- 
plesse du trio READ, DATA et RES- 
TORE, ainsi que de l’INPUT, est 
remarquable car admettant non seule- 
ment des données mais aussi des expres- 
sions à calculer. En règle générale, par- 
tout où l’on peut préciser une simple 
valeur, on pourra aussi écrire une for- 
mule sophistiquée de calcul de cette 
valeur. Le Basic du 1350 offre donc 
d’intéressantes possibilités de 
paramétrage. 


Quatre lignes de 24 caractères, pour 
un ordinateur de poche, c’est bien. Les 
fonctions CURSOR et PRINT USING 
aideront à afficher des messages à 
l'endroit et dans le format souhaité. 
L'écran est aussi graphique car chaque 
point peut être noirci (PSET) ou effacé 
(PRESET) tandis que POINT en teste 
l’état. LINE trace une ligne droite — 
aussi bien que possible — entre deux 
points. L’instruction d’affichage 
PRINT peut être temporisée d’un 
WAIT n, de zéro (WAIT 0) à l'infini 
(WAIT). 

Classique pour un ordinateur de 
poche dont la cousine germaine est bien 
la calculatrice, une belle panoplie d’ins- 
tructions mathématiques : logarithmes 
(décimaux et népériens) et inverses, 
fonctions trigonométriques en trois 
modes (DEG, RAD et GRAD, bien 
qu’aucun indicateur ne vienne rappeler 
à l’écran le mode en fonction) et inver- 
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ACS CSAVE 
AND CURSOR 
AREAD DATA 
ASC DEG 
ASN DEGREE 
ATN DIM 
BASIC DMS 
BEEP END 
CALL EXP 
CHAIN FOR 
Se GCURSOR 
CLEAR 

GOSUB 
CLOAD 
CLOSE GOT9 

GPRINT 
CLS RAD 
CONSOLE S 
CONT IF 
cos INKEYS 


INPUT 


ses. Pas de statistique, en revanche, ni 
de fonctions hyperboliques ; il faudra 
les programmer en Basic. L’algèbre de 
Boole est représentée par les fonctions 
AND, OR et NOT qu’on utilisera aussi 
bien pour programmer des imbrications 
de conditions dans des tests et des cal- 
culs en binaire. 


La mémoire 


de masse 


Via l'interface CE-126P, qui est aussi 
une imprimante thermique, on connec- 
tera un magnétophone à cassettes afin 
d’enregistrer les programmes, les ins- 
tructions du mode RESERVE et des 
données. On retrouve les classiques 
CSAVE (sauvegarde), CLOAD (charge- 


ORDINATEUR MAGIQUE , 


SUIS-ÏE TOUJOURS 
PLUS 


ul OPEN 
sue OPEN$  RND 
Le OR RUN 
LINE PASS SAVE 
LIST PAUSE SGN 
LLIST PEEK SIN 
LN PI SQR 
LOAD POINT STEP 
LOG POKE STOP 
LPRINT PRESET STRS$ 

PRINT TAN 
ne POrE TEXT 
MIDS RADIAN THEN 

RANDOM TO 
NEXT READ TROFF 
NEW REM TRON 
NOT RESTORE. USING 
ON RETURN 

RIGHTS VAL 

WAIT 


ment), PRINT # (enregistrement de don- 
nées) et INPUT # (rechargement de don- 
nées). Avec CHAIN (programmable) et 
MERGE (en commande uniquement), 
un programme Basic pourra de lui- 
même se compléter en chargeant de 
nouvelles lignes depuis une cassette. 


Au dos de l’ordinateur se situe une 
petite trappe destinée à recevoir une 
carte d’extension de la mémoire vive de 
8 Ko (800 F) ou 16 Ko (1600 F) por- 
tant, respectivement, la capacité totale 
à 11262 et 19454 octets. Dotées chacune 
d’une pile, ces cartes — si l’on oublie 
leur prix — peuvent servir de mémoire 
de masse : on change alors de program- 
mes comme de cartes. 

Originalité : l'interface série est ins- 
tallée d’origine dans le PC-1350. Pré- 
sentée à la norme RS-232C, on devrait 
donc pouvoir connecter n’importe quel 
périphérique à cette norme : modem, 


D'APRÈS MES ESTIMATIONS , it 
YŸ AURAIT AU MOINS, 3 MizLiARDS 

72 qq MilLiONS DE 

s PERSONNES PLUS 

(L) BELLES QUE TOi 

LS SUR TERRE «. 
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imprimante, ordinateur, etc. Il demeure 
que la tension aux bornes n’est que de 
5 volts (au lieu de 12 V), et pratique- 
ment, dans la plupart des cas, cela rend 
l'interface inutilisable sans convertis- 
seur. Ce dernier n’est pas encore dispo- 
nible. On se renseignera donc avant 
l’achat si l’on compte utiliser la RS-232 
C. D’ores et déjà, le Basic contient quel-_ 
ques fonctions intéressantes destinées à 
l’exploitation de cette interface. Ainsi, 
TEXT convertit un programme Basic 
(codé d’une façon particulière et person- 
nelle au PC-1350) en codes ASCII (for- 
mat standard de codage des lettres et 
caractères). On pourra, via la RS-232C, 
« vider » un programme du 1350 vers 
le traitement de textes d’un autre ordi- 


nateur, etc. 


Fiche technique du PC-1350 
Constructeur : Sharp (Japon) 
Distributeur : SBM, 151-153, av. 
J.-Jaurès, 93307 Aubervilliers 
Prix public : 2300 FF 

Mémoire vive : 3070 octets, extensions 
en option 8 Ko ou 16 Ko 

Mémoire morte : 40 Ko 

Langages : Basic, langage-machine 
Précision des calculs : sur 12 chiffres 
Nombre de mots clés Basic : 92 
Variables : numériques de 10 chiffres 
significatifs + exposant ; alphabéti- 
ques de 7 à 80 caractères 


Sharp a donc repris pour son 
PC-1350 un Basic traditionnel, perfor- 
mant, très souple et idéal pour débuter 
en informatique car doté d’un excellent 
éditeur. On pourra regretter l’absence 
de fonctions scientifiques vraiment 
sophistiquées (statistique, finances, etc.) 
car c’est un des domaines où les ordi- 
nateurs de poche ont à l’avenir une 
excellente carte à jouer. 


Thierry LEVY-ABEGNOLI 
Jean-Christophe KRUST 


DU TEMPS DE CHARLES PERRAULT AU 
MOINS, iL Y AVAiT ENCORE 
\ POÈTES ! 
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LES JEUX 
ET CASSE-TÊTE 
INFORMATIQUES 


de Thierry CHAMORET 


ES jeux et casse-tête qui vous sont proposés 
dans cette rubrique ont plusieurs aspects. 
Tout d'abord, ils peuvent être pris sous l'angle ludique, c'est-à-dire 
qu'il s'agit de jeux, de petits problèmes plus ou moins faciles à résoudre. 
Ils ont également un aspect pratique. Ils permettent 
en effet à chacun d'exercer son agilité logique. Et il n’est pas nécessaire, 
pour trouver la solution, d’avoir un ordinateur sous la main. 


Les fractions en mémoire 


La représentation des nombres 
décimaux est très variable selon les 
ordinateurs utilisés. Mais d’une façon 
générale, il n’est pas possible de stocker 
exactement la valeur des nombres réels 
en mémoire. Prenons par exemple la 
valeur : 

1/3 = 0,333333... 


Quel que soit le nombre de chiffres 
significatifs que nous prenons, il n’est 
© pas possible de représenter exactement 
cette fraction. En effet, comme elle 
admet un développement infini, il y 
aura toujours une erreur de troncature. 
Bien entendu, la plupart des ordinateurs 
effectuent leurs calculs en base 2 au lieu 


* Les solutions des jeux proposés ici paraï- 
tront dans le prochain numéro de LIST. 
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D EE 


Hoiâ !! Mais. 
jh FCY AURA ARHAIS 
ASSEZ DE PLACE 
POUR TOUT LE 

HonDE 1! 


de la base 10. Mais le même type de pro- 
blème existe, car le système binaire est 
un système de numération positionnel, 
comme le système décimal. 


Toutefois, une fraction admettant un 
développement infini en binaire peut 
avoir un développement fini en décimal. 


Vous pourrez peut-être trouver quatre 
fractions telles que : 

1. la première ait un développement fini 
en décimal et fini en binaire ; 

2. la seconde ait un développement fini 
en décimal et infini en binaire ; 

3. la troisième ait un développement 
infini en décimal et infini en binaire ; 
4. la quatrième ait un développement 
infini en décimal et fini en binaire. 


Néologismes 


Les mots que l’on utilise main- 
: tenant couramment en informati- 
que sont souvent des néologismes. 
Ainsi, parlait-on de « traitement de l’in- 
formation » pour désigner ce que l’on 
appelle maintenant informatique. Voici 
trois listes. Il s’agit de faire correspon- 
dre à chaque mot, sa date de création 
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et le nom de la ou des personnes qui l’on 


Visite au centre de calcul inventé. 


Bureautique 

Le texte suivant raconte une visite dans un centre de calcul. Il s’agit d’une | Informatique 

histoire à moitié véridique : si la description des lieux est exacte, le nar- | Ordinateur 
rateur a introduit huit erreurs techniques dans son texte. Vous arriverez cer- | Progiciel 
tainement à localiser ces bogues…. Télématique 1956 

L’entrée au centre de calcul était sévèrement contrôlée. Chaque personne 1962 

devait porter un badge qui, une fois introduit dans un lecteur, permettait d’ou- 1962 
vrir Ja porte d’entrée. A l’intérieur, et par ces temps de grandes chaleurs, on 1978 
était surpris par le froid qui régnait. PFFF! Ques 1980 


« Les deux groupes de réfrigération à eau assurent une température cons- 
tante de dix-huit degrés Celsius, à un demi-degré près », m’annonça le direc- 
teur du centre. « C’est à cause des imprimantes à laser qui sont très sensibles », 
poursuivit-il. Comme je m’approchais d’un mini-ordinateur, mon interlocu- 
teur m’expliqua : « Ce mini permet de gérer toute la comptabilité de l’entre- 
prise. C’est un seize bits de 1,5 Kips (mille cinq cents instructions par seconde) 
qui a une mémoire d’un méga-octet. Avec ses quinze écrans, il est très chargé, 
et c’est pour cela que nous allons doubler sa mémoire centrale, pour la porter 
à deux méga-mots. » 


DÉSORDRE # 


Nouëiiez ras 
LE QuipE s'il 
Vous PLAIT... 


Ph. Dreyfus 

J. E. Forges 

L. Naugès 

S. Nora et A. Minc 
J. Perret 


33 


5 et 5 ne font pas 
toujours 10 


Alors que les imprimantes à laser débitaient silencieusement depuis plus d’un 
quart d’heure leur flot continu de papier, les imprimantes à plasma se mirent 
à crépiter. « C’est ainsi que l’on voit le progrès technique », me dit mon guide, 
« ces imprimantes ont cinq ans de différence. Celles-ci éditent six cents lignes 
à la minute, alors que les nouvelles à laser débitent huit pages dans le même 
temps. Mais, bien entendu, il faut dire que nous avons des imprimantes à laser 
qui ont d’excellentes performances. » 


Malgré ce vacarme, des analystes-programmeurs travaillaient tranquillement. 
« Ils font la chasse aux cafards », me dit-on. « La chasse aux cafards ? », 
m'exclamai-je, m’attendant à voir des insectes dans une salle aussi bien ordon- 
née. « Oui. Du debugging, ou débogage, comme vous voulez. La chasse aux 
erreurs, si vous préférez. » 


« Nous utilisons un compilateur Pascal interactif. Chaque instruction est 
lue par l’ordinateur, analysée, puis exécutée. Ainsi les erreurs sont très rapi- 
dement détectées, à condition qu’elles ne proviennent pas du compilateur lui- 
même, comme cela nous est arrivé plusieurs fois ! Et en ce qui concerne les 
éventuels cafards, poursuivit-il, espérons qu’il n’y en ait pas. Avec des têtes 
de lecture qui volent à un dixième de millimètre des disques durs, le moindre 
insecte pourrait causer de sérieux dégâts, non seulement à notre matériel, mais 
aussi aux données qui y sont enregistrées ! » 


Pendant ce temps, insouciants, les dérouleurs de bandes continuaient à 
rechercher tranquillement leurs informations, tantôt dans un sens, tantôt dans 
l’autre, et les petites lampes rouges des disques clignotaient régulièrement, 
comme si elles étaient installées sur un arbre de Noël... 


(Solution page suivante) 


Considérons une instruction du 
type À = 5xX + 5+X où A repré- 
sente une variable et X une valeur, une 
variable ou une fonction du type boo- 
léen, entier ou réel. Trouver dans quel 
cas cette instruction n’est pas équiva- 
lente à celle-ci : A = 10+X 


Connenren 848 fe ! 
ab ne Mais H'SIEUR 


Dans LIST izs 
DLSENT QUE 
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Did de Den UE: a so © 


qu Zn hd D bee à 2 


: SOLUTIONS 


DU 


NUMÉRO PRÉCÉDENT 


Les solutions présentées ici répondent aux 
problèmes posés dans le précédent 
numéro de LIST. Ce ne sont 

pas forcément les 

meilleures ! 


728 


La ronde des variables 


Les séquences qui échangent les 
contenus de trois variables A, Bet 
C, sans passer par une variable auxi- 
liaire sont différentes selon que la rota- 
tion se fait à gauche ou à droite. 
1. Pour une rotation à gauche (A, B, 
) devient (B, C, A) par : 
= + B 
— B 
B 


+ A 
— A 
A 


C 
C 
B 
C 
B 
A 
B 


BxœOnn 


D HUUUE 


. Pour une rotation à droite (A, B, 
evient 


) 


+ 


EAN 


C 
A 
B 
A 
B 
C 
B 


En peu d'instructions 


En utilisant les instructions présen- 

tes sur toutes les implantations du 
langage Basic, l’initialisation d’une 
matrice unité peut s’effectuer en cinq 
lignes de la façon suivante : 
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di. 


10 for L = 1 to MAX 


20 for C = 1 to MAX 

30 A(L, C) = int (L/C}xint (C/L) 
40 next C 

50 next L 


Un rapide calcul montre que la ligne 
30 est exécutée L+C fois. Comme elle 
comporte deux divisions et une multi- 
plication, elle nécessite donc 3#LxC 
opérations, ajoutées à L+C affectations. 


w7 30 
Modulo 


L'opérateur modulo (MOD) four- 

nit le reste de la division entière et 
l’opérateur DIV, le résultat de cette divi- 
sion. 


MOD n'existe pas sur tous les Basic. 
Il va falloir le remplacer par une fonc- 
tion. Or, quelles que soient les valeurs 
de deux variables A et B, nous avons 
toujours : À = B*x (A DIV B) + (A 
MOD B}). En d’autres termes, cela signi- 
fie que le quotient d’une division entière 
multiplié par le diviseur, auquel on 
ajoute le reste de la division, donne tou- 
jours la valeur du dividende. 


Cette égalité est équivalente à celle- 
ci : A MODB = A - B x (A DIV B). 

Notre fonction peut donc s’écrire : 
FNMOD(A,B) = A - B*(A DIV B}et, 
si nous ne disposons pas de l’opérateur 
DIV : FNMOD(A,B) = A-B«%INT 
(A/B) où INT est la fonction retournant 
la partie entière d’un nombre réel. 


Visite au centre de calcul 


1. La température dans le cen- 
tre de calcul n’est pas régulée 
pour les imprimantes à laser, peu 
sensibles aux écarts de température, 
mais pour les disques et les unités 
centrales. 


2. Le mini-ordinateur n’a certaine- 
ment pas une puissance de 1,5 Kips 
(mille cinq cents instructions par 
seconde), mais plutôt de 1,5 mips 
(1,5 million d'instructions par 
seconde). 


3. Doubler la mémoire centrale 
qui est d’un méga-octet va la porter 
à deux méga-octets. Comme le mini- 
ordinateur a un processeur de seize 
bits, un mot est équivalent à deux 
octets. La mémoire sera donc portée 
à un méga-mot (deux méga-octets), 
et non deux méga-mots. 


4. La technologie du plasma n’est 
pas utilisée pour les imprimantes, 
mais plutôt pour certains écrans de 
visualisation plats. 


5. Une imprimante qui imprime 
six cents lignes par minute a approxi- 
mativement les mêmes performances 
(voire supérieures) qu’une impri- 
mante éditant huit pages dans le 
même temps (8 pages de 66 lignes fai- 
sant 528 lignes). 


6. Une imprimante à laser qui 
imprime huit pages à la minute n’est 
certainement pas un modèle haute 
performance, mais au contraire un 
des plus petits modèles. Les grosses 
imprimantes à laser impriment une 
centaine de pages à la minute. 


7. Un « compilateur Pascal inte- 
ractif » où chaque instruction est lue 
et analysée avant d’être exécutée 
n’est pas un compilateur, mais un 
simple interpréteur. 


8. La tête de lecture d’un disque 
dur ne vole pas à une altitude d’un 
dixième de millimètre de son plateau, 
mais de 0,4 millième de millimètre 
(avec la technologie Winchester) à 
1,2 millième de millimètre (pour les 
disques durs amovibles). 
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LA BOÎTE 
A MALICES... 


RENEZ un programme et ôtez-en très 

soigneusement toutes les astuces, des plus 
élémentaires aux plus subtiles. Vous êtes certain 
de n’en avoir laissé passer aucune ? Bien. Que 
reste-t-il ? Rien, ou peut-être une bogue ou deux 
(tout le monde peut se tromper). En fait, tout 


programme n'est qu'une suite d'astuces. Dans les 


pages qui suivent, vous en trouverez un grand 
nombre. Certaines sont de portée très générale. 
D'autres ne valent que pour un matériel 
particulier, Mais dans tous les cas, vous aurez 
intérêt à être curieux, à fouiner dans la boite à 
malices. Même s'il ne s’agit pas de votre machine, 
yous trouverez souvent des idées à reprendre. Par 
ailleurs, vous avez sans doute vos propres 
recettes, vos façons de faire. Si ce ne sont pas 
des secrets que vous cherchez à conserver 


jalousement, faites-en part au journal. Celles qui 


nous paraîtront les plus intéressantes enrichiront 
à leur tour la boîte à malices, Tous les lecteurs 
pourront ainsi en profiter. 


LIST 
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AMSTRAD 


CODER LA 
VIRGULE 
FLOTTANTE 


Représenter un nombre en vir- 

gule flottante nécessite au moins 
cinq octets si l’on désire bénéficier 
d’une précision satisfaisante. Certains 
Basic ne calculent que sur quatre octets 
principalement pour des raisons d’éco- 
nomie de mémoire et de vitesse de cal- 
cul, alors que d’autres permettent le 
calcul en double précision sur sept 
octets. Dans ce dernier cas, on perd en 
vitesse de calcul ce que l’on gagne en 
précision. Le Basic de l’Amstrad 


. trouve un compromis et calcule sur 


cinq octets. 


L'un de ces cinq octets est utilisé 
pour l’exposant e, les quatre autres 
représentent la valeur de la mantisse 
m avec 9 chiffres significatifs. La for- 
mule est la suivante : 
nombre = 0.m x 2°(e — 128) 

Le bit le plus significatif de m (le 
plus à gauche) est toujours à 1. Pour 
le Basic, ce bit représente le signe : 0 


. pour positif, 1 pour négatif. C’est-à- 


dire que si ce bit est à O, il sera rem- 


= placé par 1, et un ‘+? sera mis devant 
: Le nombre ; si il est à 1, il garde cette 
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valeur et un ‘‘ —?? sera placé devant le 
nombre. 


Par exemple, le nombre flottant 
5467.75 est codé par la machine avec 
cinq octets : 0 0 222 42 141, en déci- 
mal. Soit en hexadécimal : 0 0 DE 2A 
8D. L’exposant e est alors égal à 8D 
en hexa, ou 141 en décimal. Donc : 
e—128= 13 (en décimal). 


Et la mantisse m est représentée sur 
quatre octets, en hexa, par : ZA DE 00 
00. En binaire, cette mantisse est 
donc : m = 00101010 11011110 
00000000 00000000. 


Le bit le plus à gauche est à O, il est 
donc mis à 1 et le signe ‘‘ +?” est placé 
devant le nombre. La formule don- 
nant ce nombre est appliquée. Soit : 
nombre = + 0.10101010 11011110 
00000000 00000000 x 2 13 


Pour multiplier un nombre par 2"n, 


on déplace la virgule de n rangs vers : 
la droite si n est positif, et de n rangs 
vers la gauche si n est négatif. Le 
nombre devient alors : nombre = 
1010101011011.11 


Soit : nombre = (212+2 10+2"8 
+26+24+23+2 1+2"0) + 
(2 —1+2 —2) = 5467 + 0.75 

On retrouve bien notre valeur ini 
tiale ! Il existe toutefois une exception 
à la règle pour le nombre zéro qui est 
codé par cinq octets nuls. 


Les systèmes de codage sont diffé 
rents d’un Basic à l’autre, surtout pour 
le codage du signe et l’ordre des octets. : 
Aussi, cette règle ne saurait être tou- 
jours applicable sur des ordinateurs : 
autres que l’ Amstrad. 


Stéphane CHICHE 


LES PARAMÈTRES DU QL 


Sur le QL, à chaque fois que l’on 

DEFinit une fonction ou une 
procédure qui utilise, sous d’autres 
noms, les données du programme 
appelant, on emploie des paramètres 
formels. Ils ne sont pas connus par le 
programme appelant, on dit qu’ils 
sont locaux. 

Il ne faut pas confondre ces para- 
mètres formels avec les paramètres 
actuels, utilisés lors de l’appel d’une 
fonction ou d’une procédure. 


Sur le QL, les variables réagissent de 
manière inattendue. Ainsi, avec 
l’exemple 1, si nous tapons : 
affiche ‘‘bonjour’” 
affiche 2+2 
les résultats s'affichent, le premier 
ordre renvoie ‘‘bonjour’” et le second, 
2 +2. Ceci laisse supposer que la don- 
née numérique 2+2 a été convertie 
automatiquement en chaîne, aucun 


. message d’erreur n’apparaissant. 


Mais, si avec l’exemple 2, nous 
tapons : 
montre 14 
montre ‘‘bonjour”’” 
alors, ‘‘14”” puis ‘‘bonjour’”’ s’affi- 
chent sans aucun message d’erreur. Or 
si la variable avait été forcée automa- 
tiquement dans le type numérique, on 
aurait dû avoir ‘‘14”’ suivi d’un mes- 
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Exemple 1 


10 DEFine PROCedure affiche(messages) 


20 PRINT message 
30 RETurn 
40 END DEFine 


Exemple 2 


10 DEFine PROCedure montreichiffre) 


20 PRINT chiffre 
30 RETurn 
49 END DEFine 


lors de chaque appel. Ainsi, en 
tapant : 

montre ‘‘bonjour’’ 

la variable chiffre contient vraiment le 
mot ‘‘bonjour”’ et elle est considérée 
comme une variable alphanumérique. 
De même, ce n’est pas parce que le 
nom d’une fonction se termine par le 
signe ‘“$”” qu’elle renvoie un résultat 
alphanumérique. 


Une instruction pose le même type 
de problèmes. Il s’agit de SELect : elle 
ne fonctionne qu’avec des variables 
réelles. Il faut donc connaître le type 
de résultat que renvoie chaque fonc- 
tion (voir le tableau ci-dessous). Ainsi, 


Ps ec cr 


+ + 


SAINT CLRIR 


Tableau des types de résultats renvoyés par chaque fonction 


Résultats entiers : 


CODE DIMN DIV 
LEN MOD PEEK 
Résultats réels : 

ABS ACOS ACOT 
COS COT DEG 
LOG10 PEEK_L RAD 
SQRT TAN EXP 

: ’ OR 
NOT <> < 

> = == = 


INSTR KEYROW 
PEEK_W  RND() 
ASIN ATAN 
INT LN 

RND SIN 

fe us 

AND XOR 

> LE 


BEEPING 


sage d’erreur. On peut donc raisonna- 
blement penser que les paramètres for- 
mels n’ont pas de type en eux, mais 
prennent automatiquement le type du 
paramètre actuel qui leur est associé 


on peut forcer la conversion dans le 
type voulu, au début de la procédure, 
en déclarant des variables locales. 


Frédéric BLONDIAU 
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PROBLÈME 


Comment faire éditer, ligne par ligne, le fameux Triangle de 


Pascal par un très court programme Basic ? Quelques indications 


sont nécessaires : 


1. Chaque terme du triangle 
(voir schéma ci-contre) est la 
somme des deux termes situés au- 
dessus de lui, sur la ligne précé- 
dente. Le stockage d’un tableau 
carré de (N+1)xX{(N + 1) nombres 
en double précision serait vite pro- 
hibitif mais avec un peu de 
réflexion, on se contentera de stoc- 
ker une seule ligne de coefficients. 
Neuf instructions devraient suffire. 


2. Le K+lème terme de la 
N + 1ème ligne vaut N!/(K!*(N — 
K)!). L'utilisation des factorielles 
en Basic est particulièrement péni- 
ble, et entraîne des dépassements de 
capacité prématurés. Elle est donc 
à déconseiller. 


3. Vous pouvez tirer du point 2. 
le moyen de calculer chaque terme 
à partir du précédent sur la même 
ligne. Votre programme devrait se 
réduire à huit instructions. 


4, Avec un Basic acceptant les 
expressions booléennes, et avec des 
circonvolutions cérébrales suffi- 
samment tordues, vous économise- 
rez encore une instruction... en en 
compilant deux autres. Ce genre 
d’acrobatie n’est guère recom- 
mandé, mais toujours bon à 
connaître. 


5. N'hésitez pas à faire encore 
plus court si une heureuse inspira- 
tion vous favorise. 

Quelques précisions : 

e si vous ne disposez pas du NEXT 
multiple, et devez écrire NEXT 
J:NEXT I, au lieu de NEXT J,I, 
vous aurez droit à une instruction 
de plus ; 

e n’oubliez ni l’entrée du nombre 
de lignes désirées (en fait, on affi- 
che N +1 lignes), ni le retour à gau- 
che après affichage de chaque ligne 
de coefficients ; 

. en double précision, on dépasse 
les 16 chiffres pour N= 57, et on 
dépasse la capacité de l’Epson 
PX-8 pour N=124. 

(Voir les solutions proposées, 
page 75). 


Pierre BARNOUIN 
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Le début du Triangle de Pascal 


_ ALICE 


LES MALICES 
D'ALICE 


Si Des possibilités bien « cachées » 
de l’Alice, 32 ou 90, sont direc- 
tement accessibles à partir du Basic. 
Certaines sont étonnantes. Par exem- 
ple, POKE 251,n définit à la fois la 
couleur des caractères et celle du fond 
de l’écran avec pour seul paramètre, le 


nombre n : ce nombre doit être de la 
forme 16*L + F où L est la couleur des 
lettres et F celle du fond. Ainsi, L=6 
et F=1 donnent des lettres bleu pâle 
sur un. fond rouge. Une valeur de F 
supérieure à 8 provoque un 
clignotement. 


Plus subtile, la suite d’instructions : 

POKE 48935,X où X est le numéro: 
de la colonne 

POKE 48934,Y où Y est le numéro 
de la ligne 

POKE 48929,AA où AA est le code 
du caractère à afficher 

POKE 48931,A où A définit la couleur 
du caractère et celle du fond 

POKE 48930,B où B définit la taille du 
caractère, son type, un clignote- 
ment, etc. 

POKE 48936,C où C correspond au 

mode (0 ou 1) 


Les paramètres X, Y et AA sont très 
classiques. Le paramètre A doit être de 
la forme 16*L+F (comme n, plus 
haut). Les couleurs obtenues sont dif- 
férentes selon la valeur de € (0 ou 1). 
Pour B, selon la valeur des restes dans 
les divisions successives par 2, on 
obtiendra divers résultats : double lar- 
geur, double hauteur, etc. 


Enfin, le petit programme ci- 
dessous permettra une exploration 
plus systématique des diverses possi- 
bilités. La première ligne (EXEC 
54879) offre un passage direct en 
grand écran dans le programme, ce 
que ne fait normalement pas le Basic. 
Ici, l’affichage sera en blanc sur fond 
bleu. La ligne 15010 étudie le paramè- 
tre B : si on est en double hauteur ou 
en double largeur, il faut doubler le 


En couleur 

Programme pour Alice 32 ou 90 
Auteur Jean-Michel Gaudin 
Copyright LIST et l’auteur 
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UNE: Le 2 


caractère à afficher. Il est bien sûr pos- 
sible de mettre n’importe quel texte 
dans A$ en ligne 10, et de modifier les 
positions de début d’affichage LO et 
PO. 


Jean-Michel GAUDIN 


D'UNE BASE 
À L'AUTRE 


Des nombres donnés en base 

décimale, hexadécimale, octale 
ou binaire peuvent être convertis dans 
une autre de ces bases, grâce à un pro- 
gramme écrit ici pour TO7 ou 
TO7/70. Les nombres entrés doivent 
être entiers et positifs. De plus, ils ne 
peuvent dépasser la valeur maximale 
possible d’un octet, à savoir 255 en 
décimal, FF en hexadécimal, 377 en 
octal et 11111111 en binaire. 


De la ligne 160 à la ligne 200, le der- 
nier caractère du nombre envoyé est 
décodé (D, H, O ou B). Suivant le 
code, un branchement a lieu vers le 
sous-programme de traitement de la 
base considérée. Ainsi, le sous- 
programme de traitement des déci- 
maux va de la ligne 1010 à la ligne 
1090. Après avoir débarrassé le nom- 
bre de son code et transformé la chaîne 
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Conversions 


Programme pour TO7 et TO7/70 
Auteur Jean-Paul Carré 
Copyright LIST et l’auteur 


149 CLS:SCREEN7,0,0,,8 


150 INPUT "Entrez votre nombre suivi de D,H,0 ou B suivant que c'est un 


Nombre decimal, 
160 TYPES=RIGHTSCNE, 1) 


Hexadecimal ,Octal ou Binaire” ;N$ 


176 IF TYPES$S="D" THEN PRINT’il s'agit d'un nombre decimal”:GOSUB 122 
180 IF TYPES$="H" THEN PRINT"il s'agit d’un nombre hexadecimal” :GOSUB 2200 
190 IF TYPES="0" THEN PRINT"i] s'agit d’un nombre octal”:GOSUB 3206 

200 IF TYPE$="B* THEN PRINT"il s'agit d'un nombre binaire” :GOSUB4000 


219 PRINT :PRINT :GO0T0150 


LED ©" Ù  " "" Ù Û 


101G N=VALCLEFTSCNS , LENCNS)—1 >) 


rer —-traitement des decimaux 


1828 PRINT”dont la valeur Hexadecimale est:" :HEXS$(N) 


1038 PRINT"dont la valeur OÜctale est 
1849 PRINT“dont la valeur Binaire est 


1"; OCT#CN) 


1059 ‘ ##*calcul de la valeur binairettt 
1060 FOR 1=7 TO @ STEP-1 :BCID=N@C2" I) :NEN-BCID#X(2" DD :NEXT I 
1070 FOR 1=7 TO @ STEP-1:PRINT RIGHTS8(STRS(BCI)) 1): 


1880 NEXT I 
109 RETURN 
2" "traitement des Hexadecimaux 
2010 N=VALC"8H'+CLEFTS(NS , LENCNS)—1 >>) 
2020 PRINT'dont la Valeur Decimale est ti 
205% PRINT'"dont la valeur Octale est 1: OCT$CN) 
2040 PRINT'dont la valeur Binaire est 


:"::GOSUB 1250 


see traitement des Octaux 


3010 NEVALC"&O"+CLEFTSCNS , LENCNS)-1 ) >) 
30206 PRINT"'dont la valeur Decimale est t"3N 
3030 PRINT'dont la valeur Hexadecimale est :":HEXS#CN) 


3040 PRINT’dont la valeur Binaire est :"::GOSUB 1950 
3059 RETURN : 
RG |" tra tement des binaires 
4010 N£=LEFTSCNS , LENCNS)-1) :N$="&B"4NS 
4820 N=VALCNS) 
. 4030 PRINT”dont la valeur decimale est t3N 


4044 PRINT'dont la valeur Hexadicimale est:":MHEXS8CND 
4950 PRINT"dont la valeur Octale est 
4968 RETURN 


1 OCTS CN) 


NS en variable numérique M, on 
trouve : 

e la valeur hexadécimale avec l’ins- 
truction HEXS ; 

e la valeur octale avec OCTS ; 

e la valeur binaire avec un calcul préa- 
lable. Il faut décomposer le nombre en 
puissances décroissantes de 2 et géné- 
rer un octet B(I) (I allant de 7 à 0) cor- 
respondant respectivement aux bits de 
poids décroissant. En ligne 1070, cha- 
que variable numérique B(I} est 
retransformée en chaîne et le premier 
caractère, en l'occurrence un espace, 
est retiré. 


Le sous-programme de traitement 
des nombres hexadécimaux va de la 
ligne 2010 à la ligne 2050. Pour obte- 
nir la valeur décimale, il suffit de 
demander l’affichage du nombre hexa 


NS débarrassé de son code et précédé 
de &H. Pour la valeur octale, il ne 
reste plus qu’à utiliser OCT$. Enfin, 
pour la valeur binaire, on fait appel au 
même sous-programme que pour le 
traitement des nombres décimaux. 


Les nombres octaux sont traités 
comme les hexadécimaux (lignes 3010 
à 3050). Quant aux nombres binaires 
(lignes 4010 à 4050), comme pour les 
nombres hexadécimaux, on débarrasse 
la chaîne N$ de son suffixe et on lui 
ajoute le préfixe &B de façon à obte- 
nir la valeur décimale lors de la 
demande de l’affichage. Il ne reste plus 
qu’à appliquer HEX$ ou OCTS$ à ce 
nombre pour avoir son équivalent 
hexadécimal ou octal. 


Jean-Paul CARRÉ 
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ZX 81 


DES MENUS PLUS PRÉSENTABLES 


Sur le ZX 81, la présentation classique des menus est assez peu attrayante, 
en raison en particulier de l’attente d’une réponse en bas d’écran (instruc- 
tion INPUT). Le petit programme ci-dessous, facilement adaptable sur d’autres 
machines, permet de proposer des menus à la manière des ordinateurs les plus 
perfectionnés. 


Le principe est élémentaire 


: les différents choix possibles sont affichés à l’aide 


d’instructions PRINT et la touche NEWLINE permet de déplacer un curseur 
en vidéo inverse devant les options. La validation est obtenue avec une pres- 
sion sur la touche A. 


UNE MEILLEURE PRESENTATION 
DES PROGRAMMES … 


CLS 

PRINT AT 3,18; 

FRINT AT 6,0; M SÉDÉCTION: TO 
MONELLINEN 

PRINT AT £6,0:° 


ERINT AT 12,4: 
PRINT AT 14,d: 
BRINT AT 16,4: 
IF INKEYS="" THEN 
FOR R=1 TO 3 
PHINT AT 1O{RES 0 
IF INKEY#="" 
IF INKEYS="A" THEN 
PRINT AT 18+R+2,0:° 
NEXT FR 


SOTS 69 

CLS 

GOTS 280+R+100 ; 
PRINT AT = : 
STOP 

PRINT AT 

STOP . 
PEINT AT €,S;° SRE 
STOF 


40-60 : 


90-120 : 


Le programme dans ses grandes 


lignes 


* 10-30 : affichages pra- 


tiques 
affichage des 
choix proposés 


70 : attente de la pres- 


sion d’une touche 


80-130 : boucle de dé- 


placement du 

curseur 

affichage et 

effacement du 

curseur 

140 : retour en début 
de boucle | 

110 : test de valida- 
tion et branchement 
vers la suite du pro- 
gramme 

150-510 : affichage du 

résultat 


Menu 
Programme 
pour ZX 81 


Auteur Yvon Pérès 
Copyright LIST et l’auteur 


Dans certains cas, il sera intéressant de modifier ce programme pour en faire 
un sous-programme paramétré que l’on appellera dès que l’on aura besoin d’un 


menu. 
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Yvon PÉRÈS 


HP-71B à HP-41 


.: EUUH / ENCORE 
LE COUP LES 24 


CARACTÈRES. 


IMPRESSION DE 
FICHIERS BASIC 


A l’aide d’une HP-41C, d’une 

boucle HP-IL, d’une imprimante 
HP-82143A, d’un module Forth et de 
deux petits programmes, il est possi- 
ble de lister n’importe quel fichier 
Basic du HP-71B sur l’imprimante 
HP-82143A. Après avoir entré les 
deux programmes dans leur ordinateur 
respectif (101 octets dans la HP-41C, 
305 dans le HP-71B au nom de 
PRPBASIC), on suit la procédure : 
. mettre l’interrupteur de la boucle 
HP-IL de la HP-41C sur DISABL ; 
e faire CONTROL OFF sur le HP-71 
(la 41 est obligatoirement contrôleur) ; 
. faire XEQ'PRPBSIC sur la 41 ; 
entrer le nom du fichier Basic à lister 
sur le 71, puis ENDLINE ; 
e une fois le listage achevé, la 41 
demande si vous désirez un nouvel 
exemplaire (répondre O pour oui, N 
pour non, puis R/S). 

Le principe utilisé ici consiste à 
transformer le fichier Basic en un 
fichier TEXT. Le fichier est alors 
envoyé enregistrement par enregistre- 
ment vers la HP-41 qui les imprimera 
au fur et à mesure. La première liste 
demandera un peu de patience, les sui- 
vantes seront instantanées : la trans- 
formation initiale ne s'effectue qu’une 
fois. 

Le programme PRPBASIC utilise 

N° 10 - JUIN 85 


PRPBSIC 
Programme pour la HP-41C 


GieLBL “PRPBSIC”" 
AUTOIG REMOTE 


| “RUNPRPBASIC"  OUTA 


deux mots Basic apportés par le 
module Forth/Assembleur : le pre- 
mier FILESZR retourne le nombre 
d’enregistrement d’un fichier TEXT, 
le second REPLACE remplace un 
enregistrement par un autre. 


Les lignes Basic qui font exactement 


rêt avant la fin de l’impression, pour 
reprendre le contrôle, il faut faire 
SEND RDY64 sur le HP-71, impri- 
mante éteinte. Enfin, en interrompant 
le HP-71 pendant les transmissions, on 
prend le risque de voir un indésirable 
Memory Lost. 


87eLBL 82 
RCL à 


| A9eLBL 88 

INA PRA DSE X GTO 48 
ADV ADV ADV ADY AD 
ADV “ENCORE ? O/N° AON 
PROMPT AOFF ATOX 79 
K#Y2 GTO 61 Rt 

“RUN, AG" OUTA GTO 82 


32+LBL Ai 
"RUN,ELR" OUTA BEEP 
CEST CLA END 


END 181 BYTES 


PRPBASIC 
Programme pour le HP-71B 


14 ! PRPBASIC 

28 OPTION BASE 1 

38 DESTROY ALL @ DIM C$l 

96] 

48 INPUT “Non ? “;R$ 

58 COPY A$ TO WF 

68 TRANSFORM WF INTO TEX 

T 

76 D-FILESZR(*MF") 

88 ASSICH #1 TO WF 

98 FOR A=8 TO D-1 

198 READ #1,A;C$ 

118 B=1+INT(LETCVALCCSE 
41) 

126 C=C$[5-B,418C$15] @ 
E=E+CEIL(LENCCS)/24) 
138 REPLACE 41,A:C$ 

148 HEXTA 

158 OUTPUT :LOOP ;E 

168 “AG: ASSICH #1 TO 4 
F 

178 FOR A=8 TO D-1 

188 RERD #1:C$ & OUTPUT 
:LOOP :C$ 

198 HEXT A 

288 EXD 

218 CLR': PURGE MF & EX 


D 
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24 caractères doivent être évitées : elles 
produisent des sauts de ligne inesthé- 
tiques et problématiques. En cas d’ar- 


Olivier ARBEY 


TOUJOURS DES COURBES 


pl L’Amstrad peut, lui aussi, tracer les courbes représentatives de fonctions 

avec un petit programme Basic. C’est simple, on introduit la fonction choi- 
sie, en éditant la ligne 30, et en remplaçant la suite de points par la définition 
de la fonction (par exemple, 2*x —3, x12— 1, etc.). Aux lignes 40 et 50, onintro- 
duit les bornes de l’intervalle sur lequel on souhaite voir la courbe. 


Traceur de courbes 

Programme pour Amstrad CPC 464 
Auteur Christian de Guillebon 
Copyright LIST et l’auteur 


10 REM introduisez la fonction en lions 20, puis lancez le programme. 
Z@ MODE 1:LOCATE 11, i:PRINT'TRACE DE FONCTIONS" . « 

20 DEF FN f(x)=....,.4.. Hoi, 3£ FALS 

4@ LOCATE 1, S5:INPUT"'minimum Cxi="3;a { 
SO INPUT'maximum Cx)="5b DÉS COURBÉS : 
EQ IF a)b THEN 4Q:ELSE PRINT'patientez svp..." 3 
70 DIM vCET9}:c=(b-a) /E59:m=lE+5Qtp=-1E+Tz0 
S0 FOR i=@ TO 639 

98 viid=FN flatcki) 

120 p=MAX(p;y(i)) 

MEMINEmI vi) 

NEXT 

d=(p-m)/399:MODE Z 

IF a+b(@ THEN PLOT -a/c, B:DRAW -a/c, 299 
IF mkp(@ THEN PLOT @;-m/dtDRAW 629, -m/d 
PRINT STR$(CROUNDCp, 19) 

LOCATÉE 1,Z5:PRINT STR$(CROUND Cm: 12) 
LOCATE 1,1Z:PRINT STR&(ROUND (a: 1) 


D 


b=STRS € ROUND (Bb, 13) :LOCATE 8@-LEN(b#2; JE: PRINT bé Fu 
FOR i=@ TO 6E:9 De _ 
PLOT i; CyCid-m)/d D 
NEXT 

IF INKEY$="" THEN 270 

END 


La ligne 70 initialise quelques variables : c définit la variation de l’abscisse 
en passant d’un pixel horizontal au suivant (640 pixels, soit 639 intervalles) ; 
y(639) va recevoir les valeurs de f(x) correspondant aux 640 pixels horizontaux. 
Les valeurs minimale et maximale de f(x) dans l’intervalle se trouvent respecti- 
vement en m et p. 

La boucle FOR...NEXT des lignes 80 à 120, calcule les 640 valeurs de f(x), 
les mémorise dans y(i) et actualise m et p. La variation d de l’ordonnée qui 
va d’un pixel vertical au suivant (400 pixels, soit 399 intervalles) est calculée 
à la ligne 130. 

Les lignes 140 et 150 tracent les axes (s’ils existent). Les lignes 160 à 190 affi- 
chent à l’écran les valeurs minimales et maximales des abscisses et des ordon- 
nées. La boucle FOR...NEXT des lignes 200 à 220 trace la courbe. Enfin, la 
ligne 230 fixe l’écran en attendant l’appui sur une touche, pour relancer le 
programme. 


Christian de GUILLEBON 
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TÉLÉPHONE A ACCÈS DIRECT 


Un répertoire téléphonique dans 

un ordinateur de poche, c’est 
pratique. Avec un PB-700, par exem- 
ple, il suffit de le programmer en 
Basic. Le principe de base est le sui- 
vant : pour stocker un nom et un 
numéro de téléphone, on crée une 
ligne de DATA dont le numéro sera 
calculé par le programme en fonction 
des codes ASCII des deux premières 
lettres du nom (lignes 90 et 230). Pour 
chercher ce nom, le programme va lire 
cette ligne de DATA , et uniquement 
celle-là, en utilisant RESTORE suivi 
du numéro de ligne. 


Bart POUR UNE 

! DÉDE TAPPE - 
LER SANS CONSULTER 
MON PB-700 DE 


Mais que se passe-t-il si l’on doit 
stocker deux noms commençant par 
les mêmes deux premières lettres ? 
Dans ce cas, on les stocke sur la même 
ligne de DATA. Ils seront différen- 
ciés par les autres lettres : le nom com- 
plet étant tapé au clavier, s’il ne cor- 
respond pas au premier stocké sur la 
ligne, le pointeur ira chercher le sui- 
vant et vérifiera que c’est le bon. Seule 
restriction : pas plus de trois noms 
commençant par les mêmes deux pre- 
mières lettres. 


Lors de la création du répertoire, le 
numéro de la ligne de DATA à cons- 
truire est affiché : c’est ce numéro de 
ligne qui permettra l’accès direct lors 
de l’utilisation de ce programme (une 
fois le répertoire créé). 


Ainsi, pour rechercher un numéro 
de téléphone, il suffit de taper RUN, 
puis le nom du correspondant : son 
numéro apparaît aussitôt, suivi du 
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Répertoire téléphonique | 


Programme pour PB-700 
Auteur Patrick Emin 
Copyright LIST et l'auteur 


Exemple d'exécution 


NOM ? 


7765, apparaissent. 


Pour créer le répertoire, taper RUN 
200. Un message s’affiche : QUEL 


On introduit, par exemple : MAR- 
TIN. Un numéro apparaît : 7765 

On crée alors la ligne suivante : 7765 
DATA MARTIN, 9990000 

Si un autre nom commençant par 
MA devait être enregistré, il suffirait de 
le placer à la suite du premier. 

Et pour rechercher le numéro de télé- 
phone de MARTIN, on tape RUN, 
puis le nom. Alors 9990000, suivi de 


REM REPERTOIRE TELEPHONIQUE 


CLEAR 

CLS 

RET-=-=----— Réchéerche---------2 
LOCATE 8,2 

INPUT "QUEL NOM"; NMS 


REM-------—- Calcul du no de lisne 

D=ASCCNM#SDX188+ASCCMIDSCNMS 3 23 199 

REM--Lecture du nom dans les data 

RESTORE D 

READ AAS; BB$ 

REM Controle 2 Premieres lettres- 
IF LEFTS CARS: 2)CDLEFTSCNMS:3 2) THEN 
60 

REM —-—-—-—- Controle du nom entier 
IF RAAS<DNMS THEN 128 

REFM=====--- 7-55 Affichase du nom 

et du numero de lisne 

CLS :PRINT AAS$S:BBS$:LOCATE 14, 3:PRI 

NT D; 

IF INKEY$="" THEN 198 ELSE 38 
REF====S<=== Calcul du no de lisne 
POUr UNE enLrFEE-------—————————— 
CLS :LOCATE 8,2 

INPUT M"'QUEL NOM"; NMS$ 
D=ASCCNMSDX12B0+ASCCMIDS CNMS 3 23 199 
PRINT D 


REM Espace reserve rour les lisnes 
de data--------—- _ 
DATA ARTHUR;:56 15 12 
DATA DUPONT;:123 45 67, DURAND; 765 4 

3 21,:DUBOIS;478 25 36 
DATA HENRI:16 (47) 38 52 14 
DATA MARTIN,:465 71 23; MARLIN;:573 


numéro de la ligne de DATA sur 
laquelle il se trouve. Ceci pour le cas 
où une modification s’avérerait 
nécessaire. 


Comme la création de l’accès direct 
aux numéros de téléphone de ce réper- 
toire tient essentiellement dans les 
lignes 90 et 230, le programme est faci- 
lement transposable à d’autres Basic, 
pourvus des instructions ASC, READ, 
DATA, RESTORE, et dont l’instruc- 
tion RESTORE peut être suivie d’un 
numéro de ligne. 


Patrick EMIN 
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MÉLANGER LES COULEURS 


La routine FILL du Dai est 

d'usage très pratique, car elle 
remplit un rectangle avec une couleur 
donnée. Pour cela, il suffit d’indiquer 
les coordonnées des deux coins oppo- 
sés. En outre, cette routine opère rapi- 
dement, ce qui n’est pas le cas de bien 
de ses homologues, sur d’autres 
machines. Que demander de plus, 
alors ? 


Justement, il y a mieux à faire ! Le 
programme proposé ci-contre permet 
de remplir un rectangle, en mélangeant 
deux couleurs, au moyen de hachures 
verticales alternées. Cela aboutit à 
toute une série d’effets graphiques 
nouveaux, pour le plaisir des yeux, et 
la satisfaction du programmeur. 


Si l’on analyse la routine FILL du 
Dai, on remarque que celle-ci com- 
mence par appeler l’adresse E83A, en 
ROM. Il existe, à cet endroit, un 
CALL E9C3, qui branche sur une rou- 
tine initialisant les adresses C2 et C3 
de la page 0, avec des valeurs corres- 
pondant précisément à la couleur du 
FILL. En mode 4 couleurs, ces deux 
adresses contiennent 0 ou FF. Notre 
programme se propose de supprimer 
l’appel en E9C3. Ainsi, la routine 
FILL, abusée par tant de rouerie, uti- 
lisera les valeurs en C2 et C3, sans se 
rendre compte, la pauvre, que c’est le 
programmeur qui les a définies, pour 
avoir un remplissage bicolore. 


Voici comment faire. D'abord, 
a BEN. 
TouiLLER 


taper et 


assembler le source en 
langage-machine (eh, oui !). Ensuite, 
définir un mode graphique 4 couleurs, 
et choisir ces couleurs (COLORG...) 
le plus artistement possible. Puis, ajus- 
ter C2 et C3. Par exemple, POKE 
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TITL 


ORG 300H 


ES FUSH H 


@S21 CS PUSH B 

2502 DS PUSH D 

83035 F5 PUSH PSW 

0524 CD2B03 CALL ROM2 
0507 2A4A03 LHLD x1 
G30A EB XCHG 

@50B SA4COS LDA Yi 
@30E 47 MOV B,A 

O50F 2A4D05 LRLD x2 
0312 SA4FOS LDA v2 
0315 4F MOV C,A 

6316 CD2103 EALL FILL 
0319 CDSEUS CALL OLDROM 
B31C F1 POP PSW 

@5iD Di POP D 

@31E Ci FOP B 

@31F Ei POP H 

83528 C9 RET 

@321 ; 

0321 F5 FILL PUSH PSW 

8322 C5 PUSH B 

2323 DS PUSH D 

0324 ES PUSH H 

8325 CD4UES CALL GE840H 
6528 C320E8 JP 2E828H 
632B F3 ROM2 DI 

D32C 3A4000 LDA 40H 
@32F Ei POP H 

03350 F5 PUSH PSW 

0331 ES FUSH H 

@332 E63F ANI SFH 
63534 F682 ORI 82H 
@556 524008 STA 48H 
8359 3206FD STA @FDB6H 
GSSC FB EI 

O33D C9 RET 

O33E 8 

O33E Ei OLDROM POP H 

O33F Fi POP PFSW 

034Q ES PUSH H 

6341 F3 DI 

0342 324000 STA 48H 


3206FD GFD26H 


DB 


# C2, # AA: POKE # C3, # 55 inti- 
mera au FILL l’ordre de faire du rem- 
plissage avec des lignes verticales alter- 
nant les couleurs des registres 2 et 3, 
que vous venez de choisir. Enfin, il 
faut passer à la routine les coordon- 
nées du rectangle à peindre : 
POKE # 34A, X1 MOD 256: 
POKE # 34B, X1/256: 
POKE # 34C, Yi 
POKE # 34D, X2 MOD 256: 
POKE # 34E, X2/256: 
POKE # 34F, Y2 


Vous l’avez deviné : X1,Y1 et X2, 
Y2 sont les coordonnées cartésiennes 


“ROUTINE PAINT 


3 
3; COORDONNEES DU RECTANGLE 


;ROM 2 SELECTIONNEE 
Xi DANS DE 


3Y1 DANS B 
3X2 DANS HL 


1Y2 DANS C 


1RESTITUE LA ROM 


CONTROLE LES ARGUMENTS DE FILL 
3 SAUT DANS FILL 


Peinture R ; 
Routine pour Dai 

Auteur Walter Costa ‘|| 
Copyright LIST et l’aut. 


habituelles d’un rectangle, quelque 
part dans l’écran graphique. Bien 
entendu, avant de bidouiller tout cela, 
vous aurez pris la précaution de pla- 
cer les pointeurs Basic au-dessus de 
# 350 (POKE # 29C, # 04, pour être 
tranquille), puis NEW. Ne pas oublier 
aussi, pendant que j’y pense, d’annu- 
ler l’animate flag, en faisant : POKE 
# C1,0. Tapez CALLM # 300, et 
admirez le travail. C’est beau, n’est- 
ce pas ? 


Walter COSTA 
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PETITES ROUTINES EN MUSIQUE 


Les programmes professionnels 

ont souvent des « bips » ou des 
« jingles » qui leur sont propres pour 
indiquer une fausse manœuvre, un 
problème ou l’achèvement d’un tra- 
vail. En Basic, on peut y arriver aussi. 
On utilise alors une ou plusieurs rou- 
tines en langage-machine puisque ni ECLLE 


Paquet-musique 
Ensemble de routines 
Auteur Olivier Gérard 

Copyright LIST et l’aut 


SOURCE FILE: PAQUET.S 


1 RES LS LS LL LL SL LS SSL LEE) 


l’Applesoft, ni l’Integer n’ont d’ins- 0000: 2 * PAGUET-MUSIQUE * 
tructions musicales intégrées. pet : * (C) 1985 O. GERARD ET LIST x 
; : CELL LE SELLE E LL LILI LLLLSSSSLSS 
Tout d’abord, comment fait-on du 0000: 5 ; 
bruit sur l’ Apple ? L’ordinateur dis-  —---- NEXT OBJECT FILE NAME IS PAQUET 
pose d’un haut-parleur qui se fait nn. . ORG  #300 
entendre par des petits clics. Ces clics 0300 : 8 TUEEP  EQU x ;CALL 768 
sont produits par l’appel d’une adresse 0300:40 25 ç LDY £$25 ;DUREE. 
particulière : $C030 (hexa), 49200 ou CR . 2 1 TWP1 Lee ie 3FREGI=2. 
e + : : $FCAS 
16336 (décimal). Essayez le petit 0307:4D 30 CG ‘2 LDA $C030 . 
programme suivant : 0304:49 20 13 LDA £$20 ;FREG2=20. N 
10 FOR A=0 TO 100 030C:20 A8 FC 14 JSR #FCAB oi Ë 
20 B=PEEK (49200) 030F:AD 30 CO 15 LDA +#C030 LL 
30 NE 0312:88 16 DEY L 
NEXT 0313:D0 ED 17 ENE  TWP1 : 
0315:460 18 RTS ( 
0316: 19 ; 
0316: 20 WRONG EGU * ;CALL 790. 
0316:A2 02 21 LDX £#02 3DEUX NOTES EGALES 
0318:A0 05 22 WRI LDY £#05 
Des sons et... : 0314:49 70 23 LDA £$70 ;DUREE/S 
des effets spéciaux CR jen ut 
: L £$20 
0321:20 AB FC 26 JSR: $FCAB 
0324:AD 30 CO 27 LDA #C030 
0227:A9 38 28 LDA £$38 
Approchez-vous alors de votre Hide pe 2 Es ere 
Apple en faisant RUN : vous enten- 032F :88 21 DEY 
drez un son continu. En ajoutant la 0330:D0 ED 32 BNE  WR2 
ligne 25FOR C =0 TO 3:NEXT, le son 0332:CA 33 DEX 
sera plus grave. Ceci s’explique par le nee ES …_ rh WRI 
fait que la boucle vide de cette ligne 5335: 36 ; 
25 augmente l’intervalle entre chaque 0336: 37 TRALALA EQU * ;CALL 822, 
clic du haut-parleur. sos : : . LDX £$03 ;COMPTEUR POUR 3 SOLS. 
. | : LO LOY £#80 ;DUREE DE LA NOTE. 
Pour provoquer un son, il suffit  g33a:49 on 4ù SOL1 LDA £$0D ; FREQUENCE . 
donc de lire plus ou moins rapidement D A8 FC di JSR $FCAS8 
x : : 033F:A9 01 42 LDA £$01 ; CORRECTION. 
à cette Le vitesse de lec OA AU AC EC 44 en AC ; 
ture sera grande, plus le son sera aigu. 0344:AD 30 CO 44 LDA $C030 
En langage-machine, on peut obte- pi . à . PT 
nir un son plus exact et même faire des  G344:49 20 47 LDA £$30 ;ATTEND UN PEU POUR 
effets spéciaux. On utilise générale-  o34c:20 a8 Fc 48 JSR $FCAG ;DETACHER LA NOTE. 
ment la routine WAIT du moniteur 034F:CA 45 DEX 
(instruction JSR $FCAS) pour provo- 0330:D0 Eé 50 BNE  SOLO 
ne . 0352:49 06 Si LDA £#06 ; FREG=MI . 
quer la temporisation entre chaque 0354:20 5C 03 52 JSR NOTE 
clic. L’illustration de ces phénomènes 0357:49 07 53 LDA £#07 :FREG=DO, 
est donnée par le programme Paquet- Hess SC 03 cé JMP NOTE 
; : : e ; 
musique qui regroupe de petites Got: ae Sé NOTE  PHA ;SAUVE LA FREG. 
routines. 035D:42 03 57 LDX £#03 
Quant à Apple’s Klavier (page sui- 025F:40 00 58 NOTO LDY £+#00 ;DUREE/X. 
| FA / 0361:68 59 NOT! PLA ;REPREND LA FREQ. 
vante), c’est un petit programme spé-  5362:48 éû PHA LA SAUVE POUR + TARD. 
| cial qui scrute le clavier et interprète 0363:20 AR FC 61 JSR $FCAB 
la touche pressée comme une hauteur OGéé:AD 30 Cû 62 LDA  +C030 
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0369:88 63 DEY 


Ü3éñ:D0 F5 64 BNE NOTI 

036C:CAâ 635 DEX 

036D:D0 FO 46 BNE NOTO 

036F:68 67 PLA 

0270:49 20 68 LDA £#20 3 POUR DETACHER 
0372:20 48 FC 69 JSR $FCAB LA NOTE. 
0375 :40û 70 RTS 3 RETOUR. 
5276: ed: 5 

0376: 72 ;POUR SAUVER SUR DISGQUETTE : 
0376: à 73 3FAIRE BSAVE PAQUET ,A#300 ,L#75 
0376: 74 HR DEHRR HN DE HE DE DE DE DE DE DE DE DE DEEE DE DE EEE EE 


#*## SUCCESSFUL ASSEMBLY: NO ERRORS . 
| CRE ca 
Lee gif ! pie ST 


[a 
Le 
Apple’s Klavier : À 
Routine pour Apple II 
Auteur Olivier Gérard 
Copyright LIST et l’auteur (C 
SOURCE FILE: KLAVIER.S — 
0000: LH HUE HE DEEE HE DE DE DE DE DE DE DE DE DEEE DEEE HE ZE EE 
0000: 2 * APPLE’S KLAVIER * 
0000: 3 # (CC) 1985 0. GERARD ET LIST * 
0000: 4 HR DE MED HE DE DE DE DE NE DE DE DE DE DE HE EEE DE NE 
0000: Œ : 
=== NEXT OBJECT FILE NAME IS KLAVIER 
0300 4 ORG +300 
0300: 7 3 
0300:AD 09 C0 8 LDA +cooû PREND LA TOUCHE. 
0303:8D 10 C0 7 STA +$C010 
0306:20 A8 FC 10 JSR $FCA8 :VA ATTENDRE. 
0309:2C 30 C0 11 BIT +$C030 :EQUIVAUT À LIRE. 
030C:F0 F2 12 BEG +0300 3A=0 APRES WAIT. 
030E 13: ; 
030E: 14 ;POUR SAUVER SUR DISQUETTE : 
030E: 15 3;FÂAIRE BSAVE KLAVIER,4$300,L#0E 
03CE: 16 KKKEXEKKEEEEEREREREEEEREEMRÉEEXX 


xxx SUCCESSFUL ASSEMBLY: NO ERRORS 


SOLUTIONS PROPOSÉES 
AU PROBLÈME DE LA PAGE 66 


L’édition du Triangle de Pascal en neuf instructions : 
1 INPUT N : DIM TN +1): T(1)=1 
2 FOR I=1 TO N +1 : PRINT : FOR J=I TO 1 STEP-1 
3 T(J)=T(J)+T(J — 1) : PRINT T(J) ; : NEXT J,I 
L'édition du Triangle en huit instructions : 
1 INPUT N : FOR I=0 TO N : PRINT 
2 A#=1 : FOR J=0 TO I : PRINT A#; 
3 AH#=A#* (1—J)/(J+1) : NEXT J,I 
L'édition du Triangle en sept instructions : 
I INPUT N : FOR 1=0 TO N : PRINT 
2 FOR J=0 TO I : PRINT A#—(A#=0) ; 
3 A#=(A#—(A#=0)}* (1—J)/(J+1) : NEXT J,I 


Pierre BARNOUIN 
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1 « geer Pa 
sit! KRÉEE" 


age ie CRRER! cé! 


de note. C’est très amusant, surtout en 
utilisant les codes CTRL— .. Il faut 
faire CTRL—RESET pour arrêter. 
On appelle toutes ces routines par une 
instruction CALL suivie de l’adresse 
de celle-ci, indiquée sur la liste. 


Ces routines peuvent être utilisées 
sous forme d’un fichier binaire à char- 
ger avant de les utiliser (les coordon- 
nées pour une sauvegarde de cette 
manière sont en bas de la liste). Dans 
un programme, On a ainsi : 

104 PRINT CHR$ (4) ‘‘BLOAD 
PAQUET” 

2065 IF REP$=‘‘2” THEN CALL 
790:PRINT ‘‘C’EST FAUX” 


Si vous ne disposez pas d’un assem- 
bleur pour générer toutes ces routines, 
faites : 


* CALL-151 


* 300: AD 00 CO 8D 10 … (entrer les 
codes tels qu’ils apparaissent dans 
les listes des programmes — ici 
ceux de Apple’s Klavier — puis 
taper RETURN) 

+« 3D0G 

$BSAVE PAQUET,A768,L$76 ou 
$SBSAVE KLAVIER,A768,L$0C 
(selon la routine). 


Et après avoir découvert — avec 
plaisir ! — les Tweep, Wrong, Trala- 
laitou et Apple’s Klavier, expérimen- 


. tez donc vos propres sons en faisant 


appel à vos idées originales ! 


Olivier GÉRARD 


_ PC:1500 
+ IMPRIMANTE 


P COMME PRINT 


L'ordinateur Sharp PC-1500 

équipé de son imprimante dis- 
pose de deux ordres différents d’affi- 
chage de données : PRINT et 
LPRINT, respectivement, sur l’écran 
et sur l'imprimante. Cette dernière est 
munie en outre d’un commutateur 
manuel ‘‘P’” qui, lorsqu'il est armé, 
dévie sur l’imprimante tous les messa- 
ges tapés au clavier. 


Un bon programme doit tenir 
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compte de l’environnement matériel : 
lPimprimante est-elle connectée ou 
non ? Mieux, il doit prendre aussi en 
considération les desiderata de 
l’opérateur ! 

Comment, en Basic, déterminer la 
présence de l’imprimante et la position 
du commutateur ? Avec PEEK#&B 
O0E bien sûr ! Si la valeur de cette 
expression est 33, alors non seulement 
limprimante est branchée mais son 
commutateur P est en position print. 


Immédiatement, une application de MENT EST DE LE MODE 
recopie d’écran : PLUS EN PLUS ) D'INVERSION 
2:1F PEEK#&B00E <> 33 RE TERRE JNIDÉO... 

TURN 


3 : POKE &79AC, &FF, &7B, &60, 
26 : LPRINT V 

4 : PAUSE ”’ ”’ : RETURN 
Le second truc employé ici — 


“Dump ASCIL” — est une astuce déjà 
bien connue des amateurs. 


Francis CHIGOT 


X07 


INVERSION VIDÉO 


Programme 2 


Cinq lignes suffisent au Canon 

X-07 pour effectuer une inver- 
sion vidéo (programme 1). Aucune 
difficulté de programmation n’appa- 
raît, mais une succession de petites 
astuces. Par exemple, la décomposi- 
tion d’un caractère et de ses codes à 
l’aide de la fonction MIDS$ (ligne 20), :: 
ou l’assignation de chaque caractère … 
défini à son homologue normal en 
tapant à la ligne 30 : A$ = ‘‘(caractères : 


8 CLS:INPUT"Caractere a inverser";CAS$:IN 
PUT'"Code graphique"; X:CC=ASC(CAS) 

10 FORA=2TO23STEP3:CLCAY#3)=255-VALC"RH"+ 
MID$CFONT$(CC),A,2J)):NEXT 

2@ FONTS(X)="CL(BJ),CLC1),CLC2),CLC3),CLC 
4),CLC5),CLC6),CLC7)" 

38 PRINTX"--> "CHR$SCX) 


graphiques)0123... XYZ’”’. Chaque 
caractère sera localisé par MID$. 


Basé sur le même principe, le pro- = 
gramme 2 inverse n'importe quel 
caractère et le positionne au code 
ASCII de son choix. 


Globalement, ces programmes se 
distinguent par leur petite taille, leur 
simplicité et leur relative rapidité. Ils 
peuvent même être utilisés comme 
sous-programmes. 


19 CLS:PRINT'"Inversion @-Z7","Patience... 
":P=48: Q=90:U=1:FORZ=PTOQ 

20 FORA=2T023STEP3: RCA#3I=255-UAL C!LH"+N 
ID$CFONT$(Z),A,2)):NEXTA 

30 A$="a5it1Ua000O% sè MARÇ6EEEUCHÇEluÈGX 
âpdütüvéné ":T=ASCCMIDSCAS, WU, 1)3:W=W+1 

4Q FONT$SCT)I="R(BJ,RCI1),RC2),RC3J,RC4)J,RC 
5),RC6I,RC7D'":NEXTZ 

5Q FONT$S(255)="255,255,255, 255,255, 299,2 
55,255":KEY$(6)3="noi"+CHR$ (255) : END 
Bruno de LA BOISSERIE 
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